Problema databinding combobox

[madumo]

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

[Drako_18]

Buenas compañero,

No estoy muy seguro de lo que haces ahí... Porque no lo he probado... Pero así.. A simple vista... No deberías tenerlo en un "DataSource" y no en "SelectedValue"¿?
Porque con lo de arriba, parece que si estás cargando bien los datos en sus propiedades correspondientes... pero con el SelectedValue... Tienes que tener datos cargados ya en el combo, para indicar qué dato seleccionar...
Mañana lo intento probar si no encuentras alguna solución...


Un saludo!!!

[madumo]

Buenas! gracias por contestar.
Los combo los cargo en el load desde un dataset, y cuando me muevo por el bindingnavigator, quisiera seleccionar el elemento, por eso uso SelectedValue, pero en realidad, como no funciona, no sé qué tengo que hacer

Un saludo

[Malenko]

No me queda del todo claro que quieres hacer. Diría que quieres cargar el contenido del data set en la propiedad SelectedValue del combobox. Es así?

[Drako_18]

Buenas compañero,

He probado a hacer este ejemplo sencillo... Y funciona...
Imagino, que te puede faltar el enlazar el BindingSource1 al BindingNavigator1...
Espero haberte ayudado en algo con este ejemplo...


Un saludo y suerte!

Código vb:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dtDatos As New DataTable("Toma") 'Tabla para rellenar las tablas.
        Dim drAux As DataRow
 
        dtDatos.Columns.Add(New DataColumn("Col1"))
        dtDatos.Columns.Add(New DataColumn("Col2"))
 
        drAux = dtDatos.NewRow
        drAux("Col1") = "Columna A1"
        drAux("Col2") = "Columna A2"
        dtDatos.Rows.Add(drAux)
 
        drAux = dtDatos.NewRow
        drAux("Col1") = "Columna B1"
        drAux("Col2") = "Columna B2"
        dtDatos.Rows.Add(drAux)
 
        'Visualmente, asignamos el BindingSource1 al BindingNavigator1
        BindingSource1.DataSource = dtDatos 'Rellenamos los datos del BindingSource...
 
        ComboBox1.DataSource = dtDatos 'Cargamos los datos que sean en el cmb, por flojera, yo he cargado los mismos que en el Binding...
        ComboBox1.DisplayMember = "Col1" 'Asigno la columna a mostrar.
        ComboBox1.ValueMember = "Col2" 'Asigno la columna a obtener el valor.
 
        ComboBox1.DataBindings.Add("SelectedValue", BindingSource1, "Col2") 'Enlazo el BindingSource al cmb.
    End Sub
 

[madumo]

Buenas!
Así sí que funciona... el problema que yo estaba teniendo es que inicialmente cargaba el dataset y el combo con dos columnas, bueno tres, del tipo: NOMBRE · ID
y de esa forma es imposible que localice el dato para Seleccionarlo.
Muchas gracias por vuestras aportaciones, al final cargaré con una única columna.

Muchas gracias