ayuda con el combobox de VB.NET

[enrique_g_g]

Holas

alguien me podria ayudar sobre como mantener un dato relacionado con losl elementosx de un combobox?

en vb 6 lo hacia de la manera siguiente

lista.AddItem tabla.Fields("descripcion")
lista.ItemData(lista.NewIndex) = tabla.Fields("n_bloque")

de esta manera tenia relacionado cada elemento que tenia en el combo con un dato. es como tener un campo "tag" para cada elemento del combo.

no se como hacer con el combo de vb.net

por favor alguna ayuda al respecto.

nota.- por si acaso no me sirve el index de cada elemento.

[aralar]

Se hace de la siguiente manera:

Dim strPath As String
Dim StrSelect As String
Dim strXML As String
Try

strPath = ConfigurationSettings.AppSettings.Get("pathBD")
Dim dbHelper As New MEDISDataHelper("MDB_Medis", strPath)
strXML = ConfigurationSettings.AppSettings.Get("pathXML")
StrSelect = QueryStorage.GetQueryFromXMLFile("obtenerTrascende ncias", strXML)

Dim dt As Data.DataTable = dbHelper.ExecuteSelectTable(StrSelect, "MaestroTrascendencia")

''''''''''''Hasta aquí como cargues tú los datos en el datatable o dataset, lo que tú utilices. Lo que necesitas es esto:
(CboTrascendencia es el combobox)Al datasource le asignas el origen de datos, en el displayMember el campo del origen de datos que quieres que se te visualice y en el valuemember el valor que te interesa manejar a ti. Por ejemplo: el displaymember podría ser la descripción del campo y el valuemember, la clave primaria de la tabla de la base de datos de donde obtengas los valores de ese combobox.

Me.CboTrascendencia.DataSource = dt
Me.CboTrascendencia.DisplayMember = dt.Columns("Descripcion").ColumnName
Me.CboTrascendencia.ValueMember = dt.Columns("Valor").ColumnName

Catch ex As MEDISDataHelperException
MsgBox("Error al Cargar los Datos.", MsgBoxStyle.OKOnly, "Error")
End Try