Visual Basic - Llenar ComboBox con dos campos

Life is soft - evento anual de software empresarial
   
Vista:

Llenar ComboBox con dos campos

Publicado por Larry (2 intervenciones) el 18/09/2010 04:55:59
Saludos a la comunidad. Tengo una tabla con varios campos, pero necesito llenar un combobox con los datos de dos campos:
Ejemplo:
Tabla: Tipo_Persona
Campos a utilizar: CODIGO CHAR 1, DESCRIPCION CHAR 20
Datos:

CODIGO DESCRIPCION
====================
N NATURAL
J JURIDICA
C CLIENTE
P PROVEEDOR
Z TODOS

Al llenar el combobox sólo puedo agregar CODIGO o DESCRIPCION.

Necesito los dos campos, entonces al desplegar la aplicación el combobox me mostrará la DESCRIPCION, y al seleccionar un item, en una variable oculta debe quedar el valor del CODIGO, así entonces al grabar una de las tablas relacionada con TIPO_PERSONA, sólo se grabar el valor del CODIGO.
El campo CODIGO debe ser char, por eso no me sirve ITEMDATA.

Agradeceré sus observaciones.

Larry
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:Llenar ComboBox con dos campos

Publicado por iñaki (502 intervenciones) el 20/09/2010 02:54:14
Puedes utilizar un array de dos combobox.
Combobox(0) y Combobox(1).

Uno de ellos ComboBox(0), oculto, y que contenga el campo codigo, y el otro combobox(1), que contenga la descripción.
Al seleccionar la descripcion, que se seleccione tambien el codigo.

utilizando el evento OnClick.
Combobox(0).listindex = combobox(1).listindex
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:Llenar ComboBox con dos campos

Publicado por Llenar ComboBox con dos campos (2 intervenciones) el 22/09/2010 05:31:39
Saludos, muchas gracias por responder, creo que ese será el camino.

Larry
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

Llenar ComboBox con dos campos

Publicado por Juan Infante juaninfante20@gmail.com (1 intervención) el 04/10/2013 02:17:47
Prueba con este codigo.....

cboProductID.Clear
While Not rsProducts.EOF
cboProductID.AddItem rsProducts!Product_ID
cboProductID.ItemData(cboProductID.NewIndex) = rsProducts!Product_ID
rsProducts.MoveNext
Wend
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