list7 和list8 对应删除,为什么不行啊
Private Sub Command7_Click()
For i = 0 To List7.ListCount
If List7.List(i) = "" Then
List7.RemoveItem (i)
list8.Removeitem (i)
End If
Next i
End Sub
Private Sub Command7_Click()
For i = 0 To List7.ListCount
If List7.List(i) = "" Then
List7.RemoveItem (i)
list8.Removeitem (i)
End If
Next i
End Sub
For i =List7.ListCount To 0 step -1