如何判断listview的复选框至少有一个被选中，求大神指导下。
Dim i As Integer
    For i = 1 To ListView2.ListItems.Count
    If ListView2.ListItems(i).Checked = True Then
       MsgBox 1
    Else
       MsgBox 2
    End If
    Next
我上面这样写不行，它会每行都判断，我想至少有一个复选框被选中就执下一步代码，一个都没有选中就报错。

这个版没有人在了吗
回复率基本没有，唉

For i = 1 To ListView2.ListItems.Count
    If ListView2.ListItems(i).Checked Then
       MsgBox 1
       Exit For
    End If
Next
   if i>ListView2.ListItems.Count then
      MsgBox 2
   End If

[此贴子已经被作者于2022-1-24 17:41编辑过]

谢谢