UC知道vb 判断listview 某行值的问题，在线等 急~
来源：百度知道 编辑：UC知道 时间：2024/06/23 23:18:57
我想判断listview中任意一行的SubItems(14)中的值是否等于数据库中某个字段的值，若相等，则给出提示。我用的是Lvw_ItemCheck方法，可是发现判断完第一个再判断第二个时程序仍然从头开始，仍然会判断第一个并给出提示框，再判断第三个，还是这样。
我的部分代码：
For j = 1 To Lvw.ListItems.Count Step 1
If Lvw.ListItems(j).Checked = True Then
rs5.MoveFirst
For i = 1 To rs5.RecordCount Step 1
If Lvw.ListItems(j).SubItems(14) = rs5.Fields.Item(2).Value Then
msg5$ = "重复提示"
Title$ = "数据确认"
X = MsgBox(msg5$, 0, Title$)
Exit For
Else
rs5.MoveNext
End If
Next i
End If
Next j
End If
也许是我代码的原因，我想让判断完第一个后直接去判断第二个而不要再执行一次循环仍从第一个开始，该怎么做呢？是我的方法选取的不对吗？
很头疼，望高手帮忙，谢谢！
我的部分代码：
For j = 1 To Lvw.ListItems.Count Step 1
If Lvw.ListItems(j).Checked = True Then
rs5.MoveFirst
For i = 1 To rs5.RecordCount Step 1
If Lvw.ListItems(j).SubItems(14) = rs5.Fields.Item(2).Value Then
msg5$ = "重复提示"
Title$ = "数据确认"
X = MsgBox(msg5$, 0, Title$)
Exit For
Else
rs5.MoveNext
End If
Next i
End If
Next j
End If
也许是我代码的原因，我想让判断完第一个后直接去判断第二个而不要再执行一次循环仍从第一个开始，该怎么做呢？是我的方法选取的不对吗？
很头疼，望高手帮忙，谢谢！
For j = 1 To Lvw.ListItems.Count Step 1
If Lvw.ListItems(j).Checked = True Then
rs5.MoveFirst
For i = j To rs5.RecordCount Step 1
If Lvw.ListItems(j).SubItems(14) = rs5.Fields.Item(2).Value Then
msg5$ = "重复提示"
Title$ = "数据确认"
X = MsgBox(msg5$, 0, Title$)
Exit For
Else
rs5.MoveNext
End If
Next i
End If
Next j
End If