asi obtenia el itemddata de un combo en vb 6.0
Código:
Public Function ObtieneListIndex(unCombo As ComboBox, pItemData As Long) As Integer
Dim i As Integer
For i = 0 To unCombo.ListCount - 1
If pItemData = unCombo.ItemData(i) Then
ObtieneListIndex = i
Exit Function
End If
Next
ObtieneListIndex = -1
End Function
pero obviamente no pude pasarlo a .net ya que ahora cargo el combo diferente que antes.
el comobo lo cargo asi ahora:
Código:
Dim da As New OleDb.OleDbDataAdapter(STRSQL, CN)
'Dim da As New OleDbDataAdapter(STRSQL, conexion)
Dim ds As New DataTable(Tabla)
' Conexion.Open()
da.Fill(ds)
With CMB
CMB.DisplayMember = Campo
CMB.ValueMember = Indice
CMB.DataSource = ds
CMB.Text = " "
End With
esto lo hago para que al cargarse un formulario con un por ejemplo IDcliente especifico en los combos se muestren los item correspondientes.
espero que me hayan entendido si por favor me puedieran ayudar. Gracias