ComboBox

Pablo,

La rutina que adjunto agrega un item con texto y codigo a un combo o
listbox.

Sub LIS_AddCoded(it As Control, ByVal Cod As Long, ByVal desc$)
'-
' Añade un elemento a listbox o combo,
' asignando adecuadamente el ItemData.
'-
' Recibe:
' it : Lista a usar.
' cod : Código a asignar.
' desc : Descripción item.
'-
it.AddItem desc
it.ItemData(it.NewIndex) = Cod
End Sub

Javier Rojas Goñi
PARSE Software Chile
-

56-32-666366


-

"Pablo Rodríguez [ProNet]" escribió en el mensaje
news:u8$

Hola, quiero saber como puedo guardar un "ItemData" como en los comoBox de
VB6, necesito guardar un Id para cada Item del combo, de manera que cuando
el usuario seleccione un item, yo pueda hacer una consulta a la DB, y por
una cuestión de diseño no puedo mostrar el Id en el Texto del combo.

Doy las gracias por adelantado!