ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > حذف رکورد های تکراری در لیست باکس
نسخه‌ی کامل: حذف رکورد های تکراری در لیست باکس
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

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
موفق باشی
ايران ويج > برنامه نویسی > ويژوال بيسيك > حذف رکورد های تکراری در لیست باکس