Question

[VB] listview 超出索引边界如何解决。

Answer 1

ItemCount = Form1.ListView1.ListItems.Count
For i = 0 To ItemCount
CheckXitem(i) = Form1.ListView1.ListItems.Item(i).SubItems(2)
'Form1.ListView1.ListItems.Item(i).SubItems(2) 是电话号码的存放处。
　　if IsNumeric(Text2.Text) = False Then
　　MsgBox "请正确输入电话号码！", , "提示"
ElseIf CheckXitem(i) = Text2.Text Then
MsgBox "您已添加此用户！", , "提示 "Else:Set Xitem = Form1.ListView1.ListItems.Add(, "", Text1.Text & "(" & Text5.Text & ")")
Xitem.SubItems(1) = Text3.Text
Xitem.SubItems(2) = Text2.Text
Xitem.SubItems(3) = Text4.Text
Form1.Label1.Caption = "共 " & ItemCount + 1 & " 条记录"Form1.ShowUnload MeEnd IfNext
就是 超出索引边界 。试过很多变形就不行。
这段程序的思想是 ：检查是否有相同的电话号码。