Private Sub Form_Load()
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , "a", "标识", 600
ListView1.ColumnHeaders.Add , "b", "标识名", 2200
ListView1.View = lvwReport
ListView1.ListItems.Add , "a" & 0, 0
ListView1.ListItems.Add , "a" & 1, 1
ListView1.ListItems.Add , "a" & 2, 2
ListView1.ListItems.Add , "a" & 3, 3
ListView1.ListItems.Add , "a" & 4, 4
ListView1.ListItems.Add , "a" & 5, 5
ListView1.ListItems("a" & 0).SubItems(1) = 0
ListView1.ListItems("a" & 1).SubItems(1) = 1
ListView1.ListItems("a" & 2).SubItems(1) = 2
ListView1.ListItems("a" & 3).SubItems(1) = 3
ListView1.ListItems("a" & 4).SubItems(1) = 4
ListView1.ListItems("a" & 5).SubItems(1) = 5
End Sub

Private Sub Command1_Click()
'要在这里删除其中某一行．怎么删除啊．
End Sub

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems("a" & i - 1).Text = Text1.Text Then
ListView1.ListItems.Remove i
End If
Next

就是删除和Text1.Text 值相同的...
第一次能行.可是第二次时就出错了.请问这怎么回事.