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

[txlk33]

怎样保留ListView1与ListView2之间的相同数据保留下来呢？

主要保留在ListView1里。

[jhone99]

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

[yucew]

那网页里说的是，哟欧官删除问题啊， 我要说的说的是，相同数据保留问题。

[jhone99]

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 Sub

Private 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

[txlk33]

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

[jhone99]

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 Sub

Private 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