Visual Basic - De tabla a combobox

Life is soft - evento anual de software empresarial
 
Vista:

De tabla a combobox

Publicado por Vil (3 intervenciones) el 07/07/2010 18:21:56
Hola; tengo un formulario con combobox que sirve para llenar una tabla, pero ahora quiero hacer el paso contrario, o sea, passar de la tabla a los combobox.
Lo he estado intentado con combobox.text=tabla.valorcampo y haciendo if tabla.valorcampo="XXXX" then combobox.listindex=n pero no me funciona de ninguna de las maneras.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:De tabla a combobox (respuesta)

Publicado por Ariel (4 intervenciones) el 07/07/2010 19:26:57
Hola, proba cambiar el ComboBox por un DataCombo al cual le asignas el Recordset con el que llenas la tabla..
ej:

cbo.ListField = "Descripcion"
cbo.BoundColumn = "Id"
Set cbo.RowSource = rs
If rs.RecordCount > 0 Then
cbo.Text = rs("Descripcion").Value
End If

Espero te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:De tabla a combobox

Publicado por julio (72 intervenciones) el 08/07/2010 15:23:52
Bueno aqui tienes el ejemplo, pero analizalo para enterderlo, fijate que primero recupero de la tabla rubros los regisdtros que quiero cargar en el combo, despues voy recorreindo el recorset y cargando de a uno con el combo1.additem

saludos julio.................

Set Objet = New ADODB.Recordset
Objet.Open ("Select * From Rubros"), Ado, adOpenDynamic, adLockOptimistic, adCmdText
'*
If Objet.RecordCount = 0 Then
Objet.Close
Set Objet = Nothing
Exit Sub
End If
'*
Combo1.Clear
'*
With Objet
.MoveFirst
While Not .EOF
Combo1.AddItem .Fields!IdRubro
.MoveNext
Wend
End With
'*
Objet.Close
Set Objet = Nothing
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar