مبتدی: حذف ایتم های تکراری از لیست باکس [بایگانی]

View Full Version : مبتدی: حذف ایتم های تکراری از لیست باکس

sevenboys

دوشنبه 18 آبان 1388, 10:10 صبح

چطوری میتونم ایتم های تکراری یک لیست باکس را حدف کنم؟؟
برای بدست آوردن تعداد ایتم های باقی مانده پس از هر عملیاتی در لیست باکس count را باید در کدام متد به کار برم؟؟؟؟

ali_md110

دوشنبه 18 آبان 1388, 14:04 عصر

از بانک اطلاعاتی استفاده میکنید توی دستور اسکیول Distinct استفاده کنید

Parham.D

سه شنبه 19 آبان 1388, 09:38 صبح

به کد زیر توجه کنید:

For i = 0 To List1.ListCount - 2
For j = i + 1 To List1.ListCount - 1
If List1.List(i) = List1.List(j) Then List1.RemoveItem j
Next
Next