View Full Version : حذف آیتم های تکراری از combobox
A_1397
دوشنبه 25 اردیبهشت 1391, 12:01 عصر
سلام. دوستان کدی میخام برای بررسی یک به یک آیتم های یه combobox و حذف آیتم های تکراریش.
ROSTAM2
دوشنبه 25 اردیبهشت 1391, 14:17 عصر
این زمانی امکان پذیره که شما می خواید اطلاعات رو بصورت کد نویسی وارد جعبه کنید:
For u = 0 To UBound(spl)
For i = 0 To Box.AutoCompleteCustomSource.Count - 1
If spl(u) = ComboBox1.Items(i) Then
GoTo nextline
End If
Next
ComboBox1.Items.Add(spl(u))
nextline:
Next
فرید نجفلو
دوشنبه 25 اردیبهشت 1391, 15:38 عصر
سلام
Dim DistinctList As New List(Of Object)
For Each aItem In Me.ComboBox1.Items
If Not DistinctList.Contains(aItem) Then
DistinctList.Add(aItem)
End If
Next
Me.ComboBox1.Items.Clear()
Me.ComboBox1.Items.AddRange(DistinctList.ToArray)
A_1397
دوشنبه 25 اردیبهشت 1391, 15:41 عصر
این زمانی امکان پذیره که شما می خواید اطلاعات رو بصورت کد نویسی وارد جعبه کنید:
For u = 0 To UBound(spl)
For i = 0 To Box.AutoCompleteCustomSource.Count - 1
If spl(u) = ComboBox1.Items(i) Then
GoTo nextline
End If
Next
ComboBox1.Items.Add(spl(u))
nextline:
Next
آیتم ها رو از یه دیتابیس اکسس با کد نویسی می خونه. حالا امکانپذیر هست یا نه؟
spl(u) = ComboBox1.Items(i) این دستور چکاری میکنه؟
فرید نجفلو
دوشنبه 25 اردیبهشت 1391, 15:55 عصر
آیتم ها رو از یه دیتابیس اکسس با کد نویسی می خونه. حالا امکانپذیر هست یا نه؟
spl(u) = ComboBox1.Items(i) این دستور چکاری میکنه؟
اگه شما از دیتابیس می خونید چرا از همون اول اطلاعات رو غیر تکاری نمی خونید؟
Select Distinct * From Table1
اگر هم به هر دلیل می خواید بعد از خوند اطلاعات اونا رو بررسی کنید کد پر کردن کمبو رو بدید تا طبق همون کد بررسی رو بدیم
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.