none
Falla al tratar de mostrar la data en un ComboBox1 RRS feed

  • Pregunta

  • Buenas Tardes Amigos;

    Se me presento un inconveniente, tengo un combo que lo cargo mediante la siguiente funcion :

     Private Sub CargarComboBoxGenero()
            '* Función Para Cargar el Combo de Departamentos para Ingresar las Encuestas *
            Using conn As New SqlConnection(ConfigurationManager.ConnectionStrings("default").ToString())
    
                Try
                    Dim sql As String = "SELECT [Id_Genero]" & _
                                        ",[Desc_Genero]" & _
                                        "FROM Genero"
                    Dim da As New SqlDataAdapter(sql, conn)
    
                    Dim dt As DataTable = New DataTable("Genero")
    
                    da.Fill(dt)
    
                    ' Configuramos el control ComboBox
                    '
                    With comboBox1
                        .DataSource = dt
                        .DisplayMember = "Desc_Genero"
                        .ValueMember = "Id_Genero"
                    End With
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
    
            End Using
        End Sub

    todo funciona perfecto y me muestra muy bien los datos, ahora para yo registrar o saber si el usuario selecciona un dato del combo lo hago de la siguiente manera:

     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxEx1.SelectedIndexChanged
            Label4.Text = ComboBoxEx1.SelectedValue.ToString
        End Sub

    esto lo que hace es mandarme el ID de la opcion seleccionada, y cuando quiero es traerme los datos de la tabla por medio de una consulta en una funcion y pasar el valor para que salga en el combox la opcion que esta guardada lo que hago es asignarle lo siguiente al label.

    Private Sub Label4_Invalidated(sender As Object, e As InvalidateEventArgs)
            ComboBox4.SelectedValue = Label4.Text
        End Sub

    En teoria debe cambiarme en el combox a la opcion que en el laber le estoy indicando pero no lo hace, esta manera de hacerlo la traigo desde visual basic 6.

    Me ayudan con esto por favor.


    Enyelber Altube

    lunes, 20 de enero de 2014 21:41

Respuestas