求助 VB 数据删除问题

Question

 怎样删除两个listview里的相同数据呢

Answer 1

Private Sub Command1_Click()
    Dim i As Integer
    Dim j As Integer
    Dim y As Integer
    Dim blnJ As Boolean
    Dim a1() As Boolean
    Dim a2() As Boolean
    
    ReDim a1(ListView1.ListItems.Count)
    ReDim a2(ListView2.ListItems.Count)
    
    For i = 1 To ListView1.ListItems.Count
        blnJ = False
        For j = 1 To ListView2.ListItems.Count
            If ListView1.ListItems(i).Text = ListView2.ListItems(j).Text Then
                a1(i) = True
                a2(j) = True
            End If
            
            For y = 1 To 10
                DoEvents
            Next y
        Next j
    Next i
    
    For i = ListView1.ListItems.Count To 1 Step -1
        If a1(i) = True Then
            ListView1.ListItems.Remove (i)
        End If
    Next i
    
    For i = ListView2.ListItems.Count To 1 Step -1
        If a2(i) = True Then
            ListView2.ListItems.Remove (i)
        End If
    Next i
    
    
End Sub