حذف رکورد های تکراری در لیست باکس

[idenshz]

با سلام وخسته نباشید به شما دوستان عزیز و گرامی

دوستان من یه لیست باکس دارم

که یه سری رکورد رو توش فرخوانی میکنم
مثلا 300 تا اسم و سایت و...

میخوام مثلا اگه اسم تکراری بود پاک بشه و تبدیل بشه به یکی
مثلا
reza
reza
تبدیل بشه به
reza
حالا من میخوام تو این 300 تا رکورد هر چی تکراری هست بشه یکی
یعنی اگه صد تا رضا باشه بشه یه دونه رضا یا هر چیز دیگه
میشه راهنمایی کنید ؟

[ajlajlajl]

اگه از دیتابیس میخونید که میتونید با Distinct توی دستور SQL این کارو بکنید.
وگرنه.
لیستو مرتب کنید و بعد با یه حلقه خیلی راحت حذف کنید موارد تکراری پشت سر هم رو.

[arashrj]

سلام
با این قطعه کد میتونی آیتم های تکراری رو حذف کنی

کد:

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

موفق باشی