Question

在ListView中 比较两行数的大小 vb

其实很简单，但是我不会VB-。-
就是比较下第一列第一行与第一列第二行的值。。。怎么写-。-

我想实现的功能就是，查断号。比如：
1
2
5
6
8
ListView中显示的是以上的数值，那么在文本框中显示的值就是3
这功能咋实现呢-。-
在ListView...中取值！！！

Answer 1

dim i as integer,TempVal as integer,BreakCount as integer
BreakCount =0
For i=1 To Lvw.ListItems.Count
If i=1 Then
'取当前行的第0列的数据赋值给变量TempVal
TempVal=Lvw.ListItems(i)
Else
'比较当前行的第0列的数据是否为前一行第0列的数+1(即TempVal+1)
If Lvw.ListItems(i)<>TempVal+1 Then
'如果当前行的第0列的数据不等于前一行第0列的数+1(即<>TempVal+1)，则计数器+1(BreakCount +1)，临时数据+1(TempVal+1)
BreakCount =BreakCount +1
TempVal=TempVal+1
End If
End If
Next
Text1.Text=BreakCount

Answer 2

但我会。

Answer 3

Dim remeberNum As Integer
Dim rr(5) As Integer
Dim i As Integer

rr(0) = 1
rr(1) = 2
rr(2) = 3
rr(3) = 5
rr(4) = 6

For i = 0 To UBound(rr) - 1
If rr(i) - remeberNum <> 1 Then
MsgBox rr(i) & "断号了！"
Exit For
End If
remeberNum = remeberNum + 1
Next i

是不是这样的效果？

Answer 4

Private Sub Command1_Click()
Dim i, j, k
With ListView1.ListItems
For i = 1 To .Count
j = Val(.Item(i).Text) '取每行的第一列数据
If i = 1 Then
k = j
Else
If j - k <> 1 Then
Text1.Text = k + 1 '在文本框中显示断号
Else
k = j
End If
End If

Next
End With
end Sub