Aqui os dejo la forma de rellenar un combo a traves de un Datatable o un List of (Object). A la funcion hay que pasarle el Nombre del campo que actua como codigo (o valor) y el nombre del campo que se va a mostrar en el comboBox. En el caso de que le pasaramos el List of (Object) le pasariamos el nombre de los campos de la clase.
Shared Sub Cargar_Combos(ByRef cmbCombo As ComboBox,ByVal lista As List(Of Object), _ ByVal sCampoCodigo As String, _ ByVal sCampoNombre As String) Try If lista.Count > 0 Then cmbCombo.DataSource = lista cmbCombo.DisplayMember = sCampoNombre cmbCombo.ValueMember = sCampoCodigo Else cmbCombo.DataSource = Nothing End If Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub |
En el caso del Datatable sería igual, solo cambiando el parámetro de entrada.
Espero que os sirva de ayuda. Saludos.
¿Quieres ganar dinero sin hacer nada?
Pincha aqui para registrarte en CLICXTI
0 comentarios:
Publicar un comentario