Buscar cadena de texto en Combobox
Publicado por Ignacio (8 intervenciones) el 13/11/2016 00:41:33
¡ Hola a todos !
Soy nuevo en esto. Estoy desarrollando una aplicación en vs.net, tengo un combobox que se rellena desde un datatable, el código busca una cadena de texto ubicada en cualquier parte del campo según lo que escriba el usuario en el combobox.
El problema es que al introducir el texto la línea donde se escribe se tapa automáticamente con el primer resultado de la búsqueda después de escribir el tercer caracter, o se pone totalmente en blanco cundo escribo la línea:
ComboListadoRemitente.SelectedIndex = -1
Y esto no deja seguir escribiendo al usuario, lo que busco es que se puedan escribir todos los caracteres que uno quiera.
Aquí está el código completo:
Private Sub ComboListadoRemitente_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboListadoRemitente.KeyUp
Dim strText As String
strText = ComboListadoRemitente.Text
If Len(strText) > 2 Then
ComboListadoRemitente.DataSource = dtListado.Select("listado LIKE '%" & strText & "%'")
ComboListadoRemitente.DroppedDown = True
ComboListadoRemitente.SelectedIndex = -1
Cursor.Current = Cursors.Default
End If
End Sub
De ya muchas gracias por vuestra ayuda.
Soy nuevo en esto. Estoy desarrollando una aplicación en vs.net, tengo un combobox que se rellena desde un datatable, el código busca una cadena de texto ubicada en cualquier parte del campo según lo que escriba el usuario en el combobox.
El problema es que al introducir el texto la línea donde se escribe se tapa automáticamente con el primer resultado de la búsqueda después de escribir el tercer caracter, o se pone totalmente en blanco cundo escribo la línea:
ComboListadoRemitente.SelectedIndex = -1
Y esto no deja seguir escribiendo al usuario, lo que busco es que se puedan escribir todos los caracteres que uno quiera.
Aquí está el código completo:
Private Sub ComboListadoRemitente_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboListadoRemitente.KeyUp
Dim strText As String
strText = ComboListadoRemitente.Text
If Len(strText) > 2 Then
ComboListadoRemitente.DataSource = dtListado.Select("listado LIKE '%" & strText & "%'")
ComboListadoRemitente.DroppedDown = True
ComboListadoRemitente.SelectedIndex = -1
Cursor.Current = Cursors.Default
End If
End Sub
De ya muchas gracias por vuestra ayuda.
Valora esta pregunta
0
