Metodo items.item
Publicado por [email protected] (13 intervenciones) el 28/12/2007 21:55:48
Tengo el siguiente codigo ocupo asignar el item como lo hacia antes era el itemdata de vb6 estoy en windows form vb2005 y todo esta bien pero me da erroe en la linea siguiente
Me.CmbAgensias.Items.Item(N).value = Lector.Item("COD_GENCIA").ToString
si le quito esta linea me funciona bien
el codigo es el siguiente:
Public Const strCn = "Provider=MSDAORA.1;Password=hond4826
& "Persist Security Info=True; User ID=USERa Source=dbFacturas
Public Cn As New OleDb.OleDbConnection
Public Sub AdoNET()
Cn.ConnectionString = strCn
Cn.Open()
End Sub
While Lector.Read
Me.CmbAgensias.Items.Add(Lector.Item("NOMB_AGENSIA"))
Me.CmbAgensias.Items.Item(N).value = Lector.Item("COD_GENCIA").ToString
'Combo.Items.Item(I).Value1 = Row(0)
N += 1
End While
Me.CmbAgensias.Items.Item(N).value = Lector.Item("COD_GENCIA").ToString
si le quito esta linea me funciona bien
el codigo es el siguiente:
Public Const strCn = "Provider=MSDAORA.1;Password=hond4826
& "Persist Security Info=True; User ID=USERa Source=dbFacturas
Public Cn As New OleDb.OleDbConnection
Public Sub AdoNET()
Cn.ConnectionString = strCn
Cn.Open()
End Sub
While Lector.Read
Me.CmbAgensias.Items.Add(Lector.Item("NOMB_AGENSIA"))
Me.CmbAgensias.Items.Item(N).value = Lector.Item("COD_GENCIA").ToString
'Combo.Items.Item(I).Value1 = Row(0)
N += 1
End While
Valora esta pregunta


0