حذف آیتم های تکراری از combobox

[A_1397]

سلام. دوستان کدی میخام برای بررسی یک به یک آیتم های یه combobox و حذف آیتم های تکراریش.

[ROSTAM2]

این زمانی امکان پذیره که شما می خواید اطلاعات رو بصورت کد نویسی وارد جعبه کنید:


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

[فرید نجفلو]

سلام

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]

این زمانی امکان پذیره که شما می خواید اطلاعات رو بصورت کد نویسی وارد جعبه کنید:


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) این دستور چکاری میکنه؟

[فرید نجفلو]

آیتم ها رو از یه دیتابیس اکسس با کد نویسی می خونه. حالا امکانپذیر هست یا نه؟
spl(u) = ComboBox1.Items(i) این دستور چکاری میکنه؟

اگه شما از دیتابیس می خونید چرا از همون اول اطلاعات رو غیر تکاری نمی خونید؟

Select Distinct * From Table1

اگر هم به هر دلیل می خواید بعد از خوند اطلاعات اونا رو بررسی کنید کد پر کردن کمبو رو بدید تا طبق همون کد بررسی رو بدیم