Combo box
Publicado por George (202 intervenciones) el 29/04/2003 07:41:32
GRACIAS POR LEER ESTA NOTA.
Quiero posicionarme en un registro especifico de un combo box sin tener que buscar uno por uno.
este es el codigo que estoy utilizando pero cuando la lista es muy grande tarda demaciado , ahora estoy buscando la manera de posicionarme en un registro especifico inmediatamenete
por ejemplo: mediante una consulta SQL obtener el registro que deseo buscar y posicionar el combo con el resultado de la consulta.
' Mueve el combo a la llave que se le indique
Public Sub BuscaEnCbo(ByRef cbo As ComboBox, ByVal llave As Long)
cbo.ListIndex = 0
Do While cbo.ListIndex < cbo.ListCount And cbo.ItemData(cbo.ListIndex) <> llave
cbo.ListIndex = cbo.ListIndex + 1
Loop
End Sub
ESPERO , Y SE PUEDA. GRACIAS
Quiero posicionarme en un registro especifico de un combo box sin tener que buscar uno por uno.
este es el codigo que estoy utilizando pero cuando la lista es muy grande tarda demaciado , ahora estoy buscando la manera de posicionarme en un registro especifico inmediatamenete
por ejemplo: mediante una consulta SQL obtener el registro que deseo buscar y posicionar el combo con el resultado de la consulta.
' Mueve el combo a la llave que se le indique
Public Sub BuscaEnCbo(ByRef cbo As ComboBox, ByVal llave As Long)
cbo.ListIndex = 0
Do While cbo.ListIndex < cbo.ListCount And cbo.ItemData(cbo.ListIndex) <> llave
cbo.ListIndex = cbo.ListIndex + 1
Loop
End Sub
ESPERO , Y SE PUEDA. GRACIAS
Valora esta pregunta


0