Postada em 25/04/2013 16:17 hs
Olá,
Tive esse mesmo problema. Não entendi porque o Distinct não funciona no meu Select usado no VB6, mas no SQL Server funciona normalmente. Para uma solução rápida foi tirar os duplicados de dentro do "Combobox" ou algum outro componente que esteja usando através de uma procedure bem simples.
Sub RemoveDuplicados(NomeCombobox As ComboBox)
Dim a As Integer, b As Integer, c As Integer
a = NomeCombobox.ListCount - 1
Do While a >= 0
For b = a - 1 To 0 Step -1
If NomeCombobox.List(b) = NomeCombobox.List(a) Then
NomeCombobox.RemoveItem b
a = a - 1
End If
Next b
a = a - 1
Loop
End Sub
Para você usar essa procedure basta atribuir :
CALL RemoveDuplicados (NomedoCombobox)
Espero ter ajudado.
Bruno Klar
|
