Últimos Temas de: Kal_El_00100

hola gente les pido ayuda, estuve buscando y pensando pero no veo la solucion trate de agarrar un codigo viejo de vb 6.0 que tenia e intentar pasarlo a vb.net pero no me resulta hay algo que me falta. miren..

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

'de esta forma puedo saber que listindex le corresponde a cada item
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

ahora como hago para saber que item le corresponde a que listindex, siempre comparando con el item de la base de datos y la listindex de los combos.

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