xsalam
جمعه 18 اردیبهشت 1394, 11:46 صبح
سلام راهی رو در وی بی میشناسید ک بتون با استفاده از آن ، موارد تکراری در یک لیست را تشخیص داد و حذف کرد من خودم ی کارایی کردم و اینا رو نوشتم،ولی خب هنو مشکل داره
Dim z1, z2 As Integer Dim z3 As Long
z1 = 0
z2 = 0
z3 = Val(List1.ListCount) * Val(List2.ListCount)
For xi = 1 To z3
If List1.List(z1) = List2.List(z2) Then
List1.RemoveItem (z1)
List2.RemoveItem (z2)
End If
If z2 <= (Val(List2.ListCount) - 1) Then z2 = z2 + 1
If z2 > (Val(List2.ListCount) - 1) Then
z2 = 0
z1 = z1 + 1
End If
Next xi
ببین منظورم اینه برنامه بیاد گزینه اول لیست 1 رو با رو با تک تک گزینه های لیست 2 چک کنه ، اگه مشابه نبود به لیست سوم اضافه کنه ، ولی اگه مشابه بود ب محض اینکه یه مورد مشابه پیدا کرد ، هر دو تا رو حذف کنه ینی هم از لیست 1 اون مورد رو حذف کنه ، هم از لیست 2
ممنون میشم کمکم کنین
Dim z1, z2 As Integer Dim z3 As Long
z1 = 0
z2 = 0
z3 = Val(List1.ListCount) * Val(List2.ListCount)
For xi = 1 To z3
If List1.List(z1) = List2.List(z2) Then
List1.RemoveItem (z1)
List2.RemoveItem (z2)
End If
If z2 <= (Val(List2.ListCount) - 1) Then z2 = z2 + 1
If z2 > (Val(List2.ListCount) - 1) Then
z2 = 0
z1 = z1 + 1
End If
Next xi
ببین منظورم اینه برنامه بیاد گزینه اول لیست 1 رو با رو با تک تک گزینه های لیست 2 چک کنه ، اگه مشابه نبود به لیست سوم اضافه کنه ، ولی اگه مشابه بود ب محض اینکه یه مورد مشابه پیدا کرد ، هر دو تا رو حذف کنه ینی هم از لیست 1 اون مورد رو حذف کنه ، هم از لیست 2
ممنون میشم کمکم کنین