LIST1和LIST2对比
LIST1和LIST2对比,找出LIST1在LIST2中没有的,然后加到LIST3中 LIST1中的内容
list1.list(0)="张三"
list1.list(1)="李四"
list1.list(2)="小明"
LIST2中的内容
list2.list(0)="小李"
list2.list(1)="张三"
list2.list(2)="李四"
COMMAND1代码
Private Sub Command1_Click()
Dim a, b
For a = 0 To List1.ListCount - 1
For b = 0 To List2.ListCount - 1
If List1.List(a) <> List2.List(b) Then
List3.AddItem List1.List(a)
End If
Next
Next
End Sub
现在是点了COMMAND1 LIST3中有相同的
LIST3中的内容
list3.list(0)="张三"
list3.list(1)="张三"
list3.list(2)="李四"
list3.list(3)="李四"
list3.list(4)="小明"
list3.list(5)="小明"
list3.list(6)="小明"
我想要的结果是:LIST3
应该只有
list3.list(0)="小明"
不知道怎么写代码,小弟是新手,想了3天也没有想到。