none
Pasar datos de un formulario a otro con el Visual Studio 2012 (VB) RRS feed

  • Pregunta

  • Estimados,

    tengo el siguiente código, que me funciona correctamente con el Visual Studio 2008 y no comprendo porqué motivo, ahora que lo estoy desarrollando en Visual Studio 2012 (con VB) no puedo pasar los datos del formulario de búsqueda al formulario de altas, bajas y modificaciones de la persona.

      Private Sub dgvDatos_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvDatos.CellDoubleClick
                 If Not IsNothing(dgvDatos.SelectedRows) Then
                ' Aquí se le pasa el parámetro seleccionado a la variable, estas variables están definidas como Públicas en un Módulo General
                vSelectIndexGrilla = dgvDatos.Rows(e.RowIndex).Cells(0).Value
                vNombrePer = dgvDatos.Rows(e.RowIndex).Cells(1).Value
                vApellidoPer = dgvDatos.Rows(e.RowIndex).Cells(2).Value
                vtipoRolId = dgvDatos.Rows(e.RowIndex).Cells(12).Value
                vInicialAuditorPer = dgvDatos.Rows(e.RowIndex).Cells(4).Value
                vCIPer = dgvDatos.Rows(e.RowIndex).Cells(5).Value
                vRUCPer = dgvDatos.Rows(e.RowIndex).Cells(6).Value
                vDireccionPer = dgvDatos.Rows(e.RowIndex).Cells(7).Value
                vTelPer = dgvDatos.Rows(e.RowIndex).Cells(8).Value
                vCelPer = dgvDatos.Rows(e.RowIndex).Cells(9).Value
                veMailPer = dgvDatos.Rows(e.RowIndex).Cells(10).Value
                vNroCarnetPer = dgvDatos.Rows(e.RowIndex).Cells(11).Value

                Dim frmPersona As New SysAftosaV00.frmPersona
                If frmPersona.CanFocus = True Then
                    frmPersona.txtIdPersona.Text = vSelectIndexGrilla
                    frmPersona.txtNombre.Text = vNombrePer
                    frmPersona.txtApellido.Text = vApellidoPer
                    frmPersona.cmbRolPersona.SelectedValue = vtipoRolId
                    frmPersona.txtInicialAuditor.Text = vInicialAuditorPer
                    frmPersona.txtNroCarnetAuditor.Text = vNroCarnetPer
                    frmPersona.txtCI.Text = vCIPer
                    frmPersona.txtRUC.Text = vRUCPer
                    frmPersona.txtDireccion.Text = vDireccionPer
                    frmPersona.txtTelefono.Text = vTelPer
                    frmPersona.txtCelular.Text = vCelPer
                    frmPersona.txtEmail.Text = veMailPer
                    frmPersona.txtNombre.Focus()
                End If
                Me.Close()
            End If
        End Sub

    lunes, 5 de noviembre de 2012 2:04

Todas las respuestas