Pasar combobox como parámetro...

Hola,

Con esta función dentro de un form

Public Sub LoadCtrlArticu(ByVal frm As frmArticulos, ByVal paramSQL As
String)

Dim rsCtrl As InTheHand.Data.Adoce.Recordset
rsCtrl = New InTheHand.Data.Adoce.Recordset
Dim f, g As InTheHand.Data.Adoce.Field
Dim val1 As Integer
Dim val2 As String

rsCtrl.Open(paramSQL, conndb,
InTheHand.Data.Adoce.LockType.ReadOnly)
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)
val2 = g.ToString
MsgBox(g.ToString)
MsgBox(f.ToString)
'frm.comboArticu.Items.Add(New Articulo(val2, val1))
'frm.comboArticu.Items.Add("tees")
'paramCtrl.Items.Add(g.ToString)
rsCtrl.MoveNext()
Loop
End If
rsCtrl.Close()
rsCtrl = Nothing
End Sub


...no me muestra en el combobox el contenido de la base de datos.Todo la
iteración es correcta pues a cada registro me presenta por pantalla la
información (código producto y su descripción) el problema es como llenar
el combo box del form ...en VB6 i eVB 3.0 era tan fácil como
nombreFrom.combobox...

Como se hace con .NET

David

Si estas dentro del form entonces:

comboArticu.Items.Add(New Articulo(val2, val1))

o

me.comboArticu.Items.Add(New Articulo(val2, val1))

Recuerda que hay distintos tipos de combobox (dropdownstyle), puede que
algun estilo no funcione estilo lista, intenta dropdownlist.

Finalmente, puede que necesites ocupar y seleccionar algun elemento del
combobox, se hace asi:

me.comboArticu.SelectedIndex = <numero del elemento que uno quiere
seleccionar>






"David C." wrote in message
news:
Mostrar la cita

Hola,

Con esta función dentro de un form

Public Sub LoadCtrlArticu(ByVal frm As frmArticulos, ByVal paramSQL As
String)

Dim rsCtrl As InTheHand.Data.Adoce.Recordset
rsCtrl = New InTheHand.Data.Adoce.Recordset
Dim f, g As InTheHand.Data.Adoce.Field
Dim val1 As Integer
Dim val2 As String

rsCtrl.Open(paramSQL, conndb,
InTheHand.Data.Adoce.LockType.ReadOnly)
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)
val2 = g.ToString
MsgBox(g.ToString)
MsgBox(f.ToString)
'frm.comboArticu.Items.Add(New Articulo(val2, val1))
'frm.comboArticu.Items.Add("tees")
'paramCtrl.Items.Add(g.ToString)
rsCtrl.MoveNext()
Loop
End If
rsCtrl.Close()
rsCtrl = Nothing
End Sub


...no me muestra en el combobox el contenido de la base de datos.Todo la
iteración es correcta pues a cada registro me presenta por pantalla la
información (código producto y su descripción) el problema es como llenar
el combo box del form ...en VB6 i eVB 3.0 era tan fácil como
nombreFrom.combobox...

Como se hace con .NET

David