Kamis, 07 Agustus 2008

Trik menjaga data di combo seperti query ditinct (data yg ditampilan tidak berulang di combo)

a = cmbnb.ListCount - 1
Do While a >= 0
For b = a - 1 To 0 Step -1
If (cmbnb.List(b) = cmbnb.List(a)) Then
cmbnb.RemoveItem b
a = a - 1
End If
Next b
a = a - 1
Loop
at