combobox eVB a .NET para PPC

11/05/2005 - 20:03 por David C. | Informe spam
Hola,

estoy intentando pasar una aplicación de VB (embeded) a .NET
El código dice así (eVB 3.0)...

If rsCtrl.Recordcount > 0 Then
Do While Not rsCtrl.EOF
If IsNumeric(Trim(rsCtrl.Fields(0))) Then _
val1 = CInt(rsCtrl.Fields(0))
val2 = rsCtrl.Fields(1)
paramCtrl.AddItem val2
paramCtrl.ItemData(paramCtrl.NewIndex) = val1
paramCtrl.ItemData
rsCtrl.MoveNext
Loop


Ahora lo quiero pasar a VB.NET ...

If rsCtrl.Count > 0 Then
Do While Not rsCtrl.EOF
f = rsCtrl.Fields(0)
g = rsCtrl.Fields(1)
If IsNumeric(Trim(f.Value)) Then _
val1 = CInt(f.Value)
paramCtrl.Items.Add(g.Value)
paramCtrl.Items.Insert(paramCtrl.Items.GetEnumerator,
f.Value)
rsCtrl.MoveNext()
Loop
End If

Se me queja en "paramCtrl.Items.GetEnumerator"... de hecho lo que pretendo
es
añadir al índice el mismo código que hay en la columna "0" del recordset, de
esta
manera cuando el usuario selecciona un elemento en el combobox, se
actualizan
los textbox con su valor (buscando previamente en BD).

Alguien sabe como puedo implementar esto?

david
 

Leer las respuestas

#1 Guillermo guille
11/05/2005 - 21:24 | Informe spam
mejor crea una clase para almacenar el contenido del listbox (o combo):
Aqui tienes un ejemplo para simular el ItemData de VB6:
http://www.elguille.info/NET/dotnet...emData.htm


Nos vemos.
Guillermo
Microsoft VB MVP desde 1997
Te invito a mi sitio dedicado al VB y más...
http://www.elguille.info/
http://www.mundoprogramacion.com/
(puede que el correo usado sea anti-spam)


"David C." wrote in message
news:
Hola,

estoy intentando pasar una aplicación de VB (embeded) a .NET
El código dice así (eVB 3.0)...

If rsCtrl.Recordcount > 0 Then
Do While Not rsCtrl.EOF
If IsNumeric(Trim(rsCtrl.Fields(0))) Then _
val1 = CInt(rsCtrl.Fields(0))
val2 = rsCtrl.Fields(1)
paramCtrl.AddItem val2
paramCtrl.ItemData(paramCtrl.NewIndex) = val1
paramCtrl.ItemData
rsCtrl.MoveNext
Loop


Ahora lo quiero pasar a VB.NET ...

If rsCtrl.Count > 0 Then
Do While Not rsCtrl.EOF
f = rsCtrl.Fields(0)
g = rsCtrl.Fields(1)
If IsNumeric(Trim(f.Value)) Then _
val1 = CInt(f.Value)
paramCtrl.Items.Add(g.Value)
paramCtrl.Items.Insert(paramCtrl.Items.GetEnumerator, f.Value)
rsCtrl.MoveNext()
Loop
End If

Se me queja en "paramCtrl.Items.GetEnumerator"... de hecho lo que pretendo es
añadir al índice el mismo código que hay en la columna "0" del recordset, de
esta
manera cuando el usuario selecciona un elemento en el combobox, se actualizan
los textbox con su valor (buscando previamente en BD).

Alguien sabe como puedo implementar esto?

david

Preguntas similares