Visual Basic - Dudas con el combobox

Life is soft - evento anual de software empresarial
 
Vista:

Dudas con el combobox

Publicado por barca1010 (132 intervenciones) el 21/02/2007 12:46:08
Tengo una duda, exite alguna posibilidad de que en un combobox se puedan insertar mas de una columna?, mi problema esta en que deseo llenar el combobox con la descripcion de un producto y que tambien se rellene con el codigo para que en el momento que lo seleccione ya obtenga el codigo y no tenga que realizar una busqueda para saber cual es el codigo,

Gracias anticipadas
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:Dudas con el combobox

Publicado por blue (5 intervenciones) el 21/02/2007 13:23:41
no es posible, para eso usa una lista...
yo me crearia un control.
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:Dudas con el combobox

Publicado por barca1010 (132 intervenciones) el 21/02/2007 15:15:29
Gracias pero ya encontre la forma de hacerlo , aqui te dejo el codigo por si te interesa.

Dim Conexion As ADODB.Connection
Dim Recordset_Empresa As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
.ConnectionString = "DSN=RRHH;uid=;pass=;"
.Open
End With

Set rs.ActiveConnection = Conexion

rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic

With rs
.Open (SELECT * FROM Empresa )
End With

While Not rs.EOF
cboEmpresa.AddItem rs.Nombre_Empresa
cboEmpresa.ItemData(cboEmpresa.NewIndex) = rs.Codigo_Empresa
rs.MoveNext
Wend
End Sub

Private Sub cboEmpresa_Click()

Dim Indice As Long
dim CodigoEmpresa as Long

Indice = cboEmpresa.ListIndex
CodigoEmpresa = cboEmpresa.ItemData(Indice)

End Sub
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