
03/01/2009, 21:10
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 216
Antigüedad: 23 años, 1 mes Puntos: 0 | |
Respuesta: AYUDA 3 Capas vb.net Si queres cargar el combo "a mano" te doy un ejemplo de como lo hago yo a partir de un array, si traes un dataset es similar.... espero te sirva el ejemplo.
Sub CargarComboAct()
'Dimensionamos el arraylist y lo creamos
Dim Victor As New ArrayList
'Le asigno al nuevo array el resultado de la funcion CargarComboAct (que se encarga de ir a buscar los datos y devuelve un arraylist)
Victor = Me.unaCon.CargarComboAct
'Lo ordeno
Victor.Sort()
'Dimensiono una variable local i
Dim i As Integer
'Limipio el combo
Me.cboAct.Items.Clear()
'Recorro el arrylist
For i = 0 To Victor.Count - 1
'Voy llenando el combo con cada item del arryalist
Me.cboAct.Items.Add(Victor.Item(i))
Next
'Dejo seleccionado el primer item
cboAct.SelectedIndex = 0
End Sub
Con un dataset seria algo asi:
Dim i As Integer
For i = 0 To unDs.Tables(0).Rows.Count
Me.ddlMarca.Items.Add(CStr(unDs.Tables(0).Rows(i). Item(1)))
Next
Saludos
__________________ "No importa lo que nos suceda sino cómo reaccionamos ante lo que nos sucede." Presidente James E. Faust |