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 值相同的...
第一次能行.可是第二次时就出错了.请问这怎么回事.

每次修改完需要重新循环……

因为remove后你的aN就不见了，你还再访问发生35601错误……

比如第一次remove了a2，你第2次却仍然在访问它……所以出错了

加个On Error Resume Next可以解决

谢谢你.问题解决了..

如果要全部删除怎么办??

For i = 1 To ListView1.ListItems.Count
ListView1.ListItems.Remove i
Next

这样不行..