Question

VB关于MSFlexGrid表格内容的提取。 求各位大侠高手！！

关于MSFlexGrid表格内容的提取。
求各位大侠高手！！
我写了一段代码，是由列表框一、列表框二和一个MSFlexGrid表格。
我是这样想的，由MSFlexGrid表格指定列（如第1列）的内容与列表框一的多项内容相同时，自动将指定某列（如第2列）该行的内容添加到列表框二的项目上。以下是我写的一段代码，可是不行啊，有没有高手指教一下，谢谢哦！！！
Dim i As Long, j As Long, G As Long
For i = 0 To List1.ListCount - 1
DoEvents
j = 1
Do While j = MSFlexGrid1.Rows - 1
DoEvents
If MSFlexGrid1.TextMatrix(j, 1) = List1.List(i) Then
List1.AddItem MSFlexGrid1.TextMatrix(j, 2) 这行怎么不起作用？？？
ElseIf MSFlexGrid1.TextMatrix(j, 1) <> List1.List(i) Then
j = j + 1
End If
Loop
Next i
List1.Clear
For j = 1 To MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(j, 0) = j
Next j
希望各位高手帮忙一下，偶是新手，对于一些代码还不是怎么会，谢谢！！！

Answer 1

Dim i As Long, j As Long, G As Long
For i = 0 To List1.ListCount - 1
DoEvents
j = 0
Do While j < MSFlexGrid1.Rows
DoEvents
If MSFlexGrid1.TextMatrix(j, 1) = List1.List(i) Then
注意行列都是从0开始的，0表示第一行1表示第二行 ，2表示第三行
List2.AddItem MSFlexGrid1.TextMatrix(j, 2) 应该添加到列表框2
End If
j = j + 1
Loop
Next

Answer 2

循环条件有问题：
Do While j = MSFlexGrid1.Rows - 1

改为：
Do While j <= MSFlexGrid1.Rows - 1

追问

这前是用Do While j <= MSFlexGrid1.Rows - 1这个语句的，但是总是提示下标越界。总之上面的代码就是不行。你有没有别的方法呀？求指教！！！

追答

哪一行越界？
总之你不能用：Do While j = MSFlexGrid1.Rows - 1，用这个跟没有这个循环没什么两样