[求助]VB ListView中的问题

Question

清除过程中最后一个为什么不清除呢？最后位置的数字为什么总是留下呢？请高手们指出那一个错了呢？Dim i As Long, j As Long    Dim s As String
    For i = ListView1.ListItems.Count To 1 Step -1
    
    
    
        s = ListView1.ListItems(i)
        For j = 1 To ListView2.ListItems.Count
            If ListView2.ListItems(j) = s Then
                Exit For
            End If
        Next
        If j < ListView2.ListItems.Count Then
            ListView1.ListItems.Remove i
            
        End If
    Next

Answer 1

自己单步调试一下不就行了？
把If j < ListView2.ListItems.Count Then 改成If j <= ListView2.ListItems.Count Then 试试

Answer 2

改一下：
     If j < ListView2.ListItems.Count Then 
            ListView1.ListItems.Remove i 
            
        End If 
将上面改成下面这样
        If j <= ListView2.ListItems.Count Then  '<=  .只是小于。但是最后一个一定是等于了。
            ListView1.ListItems.Remove i
            
        End If