none
Pasar datos de un Grid a un combobox, en un mismo formulario con Tabpanel RRS feed

  • Pregunta

  • Hola y buenas de nuevo, aqui de nuevo tratando de resolver un inconveniente, qizas no me resulta lograrlo de la manera que lo aplico...

    la idea es que en un mismo formulario, separado con Tab panel:Desde Aqui se registran los empleados

    y desde aqui se visualizan los empleados registrados (algunos campos están ocultos)

    en el evento clic del boton seleccionar mando los datos desde el grid a los campos correspondientes, pero solo me llena correctamente lo textbox y no manda el valor (o "value") al cmbobox, aqui muetro como los mando:

     Private Sub BtnSeleccionar_Click(sender As Object, e As EventArgs) Handles BtnSeleccionar.Click
            BtnGuardar.Enabled = False
            BtnModificar.Enabled = True
            Try
                If GridRegistroEmp.RowCount = Nothing Then
                    MessageBox.Show("No se han ingresado ninguna Empleado en el sistema.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                Else
                    Dim renglon As Integer = Me.GridRegistroEmp.CurrentCell.RowIndex
                    Label75.Text = Me.GridRegistroEmp.Item("Id_Emp", renglon).Value
                    TxtIdentidad.Text = Me.GridRegistroEmp.Item("Identidad_Emp", renglon).Value
                    TxtNombres.Text = Me.GridRegistroEmp.Item("Nomb_Emp", renglon).Value
                    TxtApe.Text = Me.GridRegistroEmp.Item("Ape_Emp", renglon).Value
                    ComboGenero.SelectedValue = Me.GridRegistroEmp.Item("Genero_Emp", renglon).Value
                    ComboEstadoCiv.SelectedValue = Me.GridRegistroEmp.Item("Estado_Civil_Emp", renglon).Value
                    CheckHijos.Checked = Me.GridRegistroEmp.Item("Hijos", renglon).Value
                    ComboCantHijos.SelectedValue = Me.GridRegistroEmp.Item("Cant_Hijos", renglon).Value
                End If
            Catch ex As Exception
                MsgBox(ex.Message.ToString)
            End Try
        End Sub

    aquí la tabla de la base de datos:

    he usado el mismo procedimiento en otro formulario y funciona perfectamente, pero en el formulario que funciona bien , no tiene TabPanel, quizás he ahí el problema, a ver si alguien me puede orientar un poco en como solucionar este inconveniente

    martes, 2 de mayo de 2017 17:58

Respuestas

  • Hola Jefry Zelaya

    Si conviertes el valor a string?

    Private Sub BtnSeleccionar_Click(sender As Object, e As EventArgs) Handles BtnSeleccionar.Click
            BtnGuardar.Enabled = False
            BtnModificar.Enabled = True
            Try
                If GridRegistroEmp.RowCount = Nothing Then
                    MessageBox.Show("No se han ingresado ninguna Empleado en el sistema.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                Else
                    Dim renglon As Integer = Me.GridRegistroEmp.CurrentCell.RowIndex
                    Label75.Text = Me.GridRegistroEmp.Item("Id_Emp", renglon).Value
                    TxtIdentidad.Text = Me.GridRegistroEmp.Item("Identidad_Emp", renglon).Value
                    TxtNombres.Text = Me.GridRegistroEmp.Item("Nomb_Emp", renglon).Value
                    TxtApe.Text = Me.GridRegistroEmp.Item("Ape_Emp", renglon).Value
                    ComboGenero.SelectedValue = Me.GridRegistroEmp.Item("Genero_Emp", renglon).Value
                    ComboEstadoCiv.SelectedValue = Me.GridRegistroEmp.Item("Estado_Civil_Emp", renglon).Value
                    CheckHijos.Checked = Me.GridRegistroEmp.Item("Hijos", renglon).Value
                    ComboCantHijos.SelectedValue = Me.GridRegistroEmp.Item("Cant_Hijos", renglon).Value.ToString()
                End If
            Catch ex As Exception
                MsgBox(ex.Message.ToString)
            End Try
        End Sub
    Saludos


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.

    martes, 2 de mayo de 2017 18:15