求助 vb mshflexgrid

Question

mshflexgrid1 的数据
5
1
2
3
4
5
8
7
2
1 怎样读取从最后行位置开始查找第一次遇到查找字符的间隔呢如， 要查找5的间隔，运行结果为4个间隔。

Answer 1

参考方法：
1、查询记录时以distinct关键字先把重复的项去除，然后创建动态数组，分别依次赋值
2、去掉distinct关键字以同样的排序方式查出所有的记录，然后和数组的各组依次比较，如果相同则记下相应的行号，产生的行号差则是你要的间隔数，不过效率可能不高

Answer 2

如果用mshflexgrid的话只有用控件中行循环作对比的办法了

Answer 3

Private Sub Form_Load()
Dim i As Long
For i = 1 To 100
ListView1.ListItems.Add , , i
Next
End SubDim i As Long
Dim Arr As StringFor i = ListView1.ListItems.Count To 1 Step -1
 Arr = Arr & ListView1.ListItems(i).Text
 Next
 
 ListView2.ListItems.Add , , InStr(1, Arr, “5”)这个我自己做的，但是结果怎么间隔13呢
应该是 97

Answer 4

找到了原因，但是其中又有问题了For i = ListView1.ListItems.Count To 1 Step -1 
Arr = Arr & ListView1.ListItems(i).Text 
Next arr里的数据是奇怪了，什么回事呢