Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/05/2017, 01:34
madumo
 
Fecha de Ingreso: noviembre-2009
Mensajes: 15
Antigüedad: 14 años, 5 meses
Puntos: 0
Pregunta Problema databinding combobox

Hola a todos
Estoy tratando de enlazar un combobox dessde un dataset.
Inicialmente, cargo los datos del combobox desde un dataset. Al moverme por un BindingNavigator, quiero cargar en el combo su dato correspondiente.
Este es el código que uso:

Call EnlazaDato(mi_dataSet, nombre_campo, nombre_combo)

Sub EnlazaDato(ByRef dataS As DataTable, campo As String, obj As Object)
'la variable cargado indica si el combo es cargado con dos columnas o no
Dim Bind As Binding

obj.DataBindings.Clear()
If obj.GetType.ToString = "System.Windows.Forms.TextBox" Then
Bind = New Binding("Text", dataS, campo, True)
obj.DataBindings.Add(Bind)
ElseIf obj.GetType.ToString = "System.Windows.Forms.Label" Then
Bind = New Binding("Text", dataS, campo, True)
obj.DataBindings.Add(Bind)
ElseIf obj.GetType.ToString = "System.Windows.Forms.CheckBox" Then
Bind = New Binding("Checked", dataS, campo, True)
obj.DataBindings.Add(Bind)
ElseIf obj.GetType.ToString = "System.Windows.Forms.ComboBox" Then
obj.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", dataS, campo, True))

End If
Bind = Nothing
End Sub

Con los Text, label y chekboxs, funciona perfectamente, pero con el combobox, no hay forma..
¿Alguna ayuda?
Gracias