combobox pasar valor

25/05/2006 - 20:33 por Jose | Informe spam
Como pasar el valor de un campo de una tabla hacia mi combobox. la idea es
que en mi tabla tengo un campo codigo y descripcion y quiero. En el
comobobox muestro la descripcion pero almaceno el codigo de esa descripcion.
Alguna idea?
Gracias
 

Leer las respuestas

#1 Eduardo Alvarado Meza
26/05/2006 - 11:39 | Informe spam
No te entiendo la pregunta, traes la descripcion y el codigo pero en el
combo obviamente muestras la descripcion, pero no sabes como recuperar o
donde guardar el codigo?? ... espero sea asi la pregunta, y la respuesta
seria asi:
Implementa esta clase:

Public Class MiItemCombo
Private m_Desc As String
Private m_Id As String
Public Sub New(ByVal Descripcion As String, ByVal Codigo As String)
m_Desc = Descripcion
m_Id = Codigo
End Sub
Public Property Descripcion() As String
Get
Return m_Desc
End Get
Set(ByVal Value As String)
m_Desc = Value
End Set
End Property
Public Property Codigo() As String
Get
Return m_Id
End Get
Set(ByVal Value As String)
m_Id = Value
End Set
End Property
Public Overrides Function ToString() As String
Return m_Desc
End Function

Asi para llenar el combo seria algo como:
Dim itm as MiItemCombo
For Each dr As DataRow In .
itm = New MiItemCombo(CType(dr("Description"), String), CType(dr("ID"),
String))
MiCombo.Items.Add(itm)
Next

Para recuperar por ejemplo el id seria:
MiCodigo = ctype(miCombo.selecteditem, MiItemCombo).Codigo

Preguntas similares