[求助VB] ListView1与ListView2之间的相同数据保留问题

Question

   怎样保留ListView1与ListView2之间的相同数据保留下来呢？   主要保留在ListView1里。
   

Answer 1

参考
http://topic.csdn.net/u/20080827/08/1321938c-27e8-41e7-9bd9-aa9c38d1ab27.html

Answer 2

Private Sub Command1_Click()
   Dim i As Long
   Dim j As Long
   
   For i = ListView1.ListItems.Count To 1 Step -1
      For j = 1 To ListView2.ListItems.Count
          If ListView1.ListItems(i).Text = ListView2.ListItems(j).Text Then
              ListView1.ListItems.Remove i
          End If
      Next
   Next
   
End SubPrivate Sub Form_Load()
   ListView1.ListItems.Add , , "1"
   ListView2.ListItems.Add , , "334"
   
   ListView1.ListItems.Add , , "126"
   ListView2.ListItems.Add , , "156"
   
   
   ListView1.ListItems.Add , , "447"
   ListView2.ListItems.Add , , "2544"
   
   ListView1.ListItems.Add , , "5354"
   ListView2.ListItems.Add , , "126"
   
   ListView1.ListItems.Add , , "156"
   ListView2.ListItems.Add , , "484"
   
   ListView1.ListItems.Add , , "1654"
   ListView2.ListItems.Add , , "615"
   
End Sub

Answer 3

    我要保留ListView1与ListView2之间的相同记录。该怎么做呢？

Answer 4

Private Sub Command1_Click()
   Dim i As Long
   Dim j As Long
   Dim blnP As Boolean
   
   For i = ListView1.ListItems.Count To 1 Step -1
      blnP = False
      
      For j = 1 To ListView2.ListItems.Count
          If ListView1.ListItems(i).Text = ListView2.ListItems(j).Text Then
              blnP = True
          End If
      Next
      If blnP = False Then
          ListView1.ListItems.Remove i
      End If
   Next
   
End SubPrivate Sub Form_Load()
   ListView1.ListItems.Add , , "1"
   ListView2.ListItems.Add , , "334"
   
   ListView1.ListItems.Add , , "126"
   ListView2.ListItems.Add , , "156"
   
   
   ListView1.ListItems.Add , , "447"
   ListView2.ListItems.Add , , "2544"
   
   ListView1.ListItems.Add , , "5354"
   ListView2.ListItems.Add , , "126"
   
   ListView1.ListItems.Add , , "156"
   ListView2.ListItems.Add , , "484"
   
   ListView1.ListItems.Add , , "1654"
   ListView2.ListItems.Add , , "615"
   
End Sub