Evitar registros duplicados en combo

[LUISESPOCH]

Hola a todos. Alguien por favor me podria decir cómo filtro los valores de un combo que ya me viene cargado en un metodo desde la BD? Deseo que no se muestren los datos duplicados.

Gracias por la ayuda.

Espoch

[Korku]

Hola LUISESPOCH,

Me supongo que empleas una instrucción SQL para llenar un combo, ¿No? Si es así, prueba con la clausula DISTINCT

Un saludo

[LUISESPOCH]

Hola Korku. Te comento que el SP que utilizo para traer estos registros me esta sirviendo para ptra tarea adicional, donde si necesito trar la duplicaicon de estos registros. Lo que yo queria es filtrarle el combo luego de que recupere el sql que le hago contra el server. ¿Me xpliqué?
Gracias por la ayudadita..

Luis

[Korku]

Código:

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
                                                                        ByVal wMsg As Long, _
                                                                        ByVal wParam As Long, _
                                                                        lParam As Any) _
                                                                        As Long

Private Const CB_ERR = (-1)
Private Const CB_FINDSTRING = &H14C
Private Const CB_FINDSTRINGEXACT = &H158

Private Function FindItemByString(cmb As ComboBox, ByVal SearchFor As String, Optional FindExact As Boolean = False) As Integer
    FindItemByString = CInt(SendMessage(cmb.hwnd, IIf(FindExact, CB_FINDSTRINGEXACT, CB_FINDSTRING), _
                            CB_ERR, ByVal SearchFor))
End Function


Private Sub Command1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1_Click

    Combo1.ListIndex = FindItemByString(Combo1, Combo1.Text, True)

End Sub

Espero que te sirva de algo,

Un saludo

[mcEmmanuel]

si estas utilizando .net 2.0, puedes utilizar el defaulView de la tabla donde se regresa el resultado de la consulta, ademas utilizar el metodo toTable del view para obtener una nueva tabla. por ejemplo..

Código:

 
Dim viewRoomPlan As DataView = ds.tables(0).DefaultView
Dim tbl As DataTable = viewRoomPlan.ToTable(True, "idPlan", "Nombre")
 
'tbl lo puedes usar para enlazar tu combo
 

Saludos!
Emmanuel
La Paz Baja California Sur.