LISTAR DADOS COM O DATAGRIDVIEW CELLDOUBLECLICK [VB.NET]

[Thyago Analyst]

Bom dia pessoal?

Estou com um problema em listar os dados de um DataGrid View no meu form. O problema é o seguinte, estou criando um CRUD, onde tenho minha DAL Cliente e a BLL Cliente, o problema é que não sei como ficará a lógica para listar os dados no meu form de Cadastro. Veja ai o código

// Code Classe DAL Pessoas
'       
        ''' <summary>
        ''' Obtêm a busca do Registro pela a ID
        ''' </summary>
        ''' <param name="PessoaID"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function GetPessoa(ByVal PessoaID As Integer) As DataRow

            _dlinha = Nothing

            Try

                _sqlcon = New SqlClient.SqlConnection(_conStr)
                _sqlcon.Open()


                _sqlcom = New SqlClient.SqlCommand()
                With _sqlcom
                    .Connection = _sqlcon
                    .CommandType = CommandType.Text

                    .CommandText = "SELECT Pes_ID, Pes_Data_Cadastro, Pes_Data_Nasc, Pes_Razao_Social, Pes_Fantasia,Pes_CPFCNPJ, Pes_RGIE, Pes_Orgao_Exp FROM Pessoas "

                    .Parameters.Add("@Pes_ID", SqlDbType.Int).Value = PessoaID
                End With

                _sqldap = New SqlClient.SqlDataAdapter(_sqlcom)
                _dset = New DataSet()
                _sqldap.Fill(_dset)

                If _dset.Tables(0).Rows.Count > 0 Then
                    _dlinha = _dset.Tables(0).Rows(0)
                Else
                    _dlinha = Nothing
                End If

                _sqlcom.Parameters.Clear()
            Catch ex As Exception
                _dlinha = Nothing
                Throw ex
            Finally
                liberaTodosObjetos()
            End Try

            Return _dlinha

        End Function

//Classe BLL Pessoas

        Public Function GetPessoas(ByVal PessoasID As String) As DataRow

            _dlinha = Nothing
            Try
                _obj = New DALPessoas()
                _dlinha = _obj.GetPessoa(PessoasID)
            Catch ex As Exception
                Throw ex
            Finally
                _obj = Nothing
            End Try

            Return _dlinha

        End Function

No meu Form de "Busca Pessoas" está este evento no DataGrid

Private Sub DataGridView1_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick

        Dim pessoaID As Integer = 0

        Try
            'cria instância de BLLEstudantes e usa o método GetEstudante 
            'para obter um estudante

            _objs = New BLLPessoas()
            _dlinha = _objs.GetPessoas(DataGridView1.Rows(e.RowIndex).Cells(0).Value)


            txtPessoasID.Text = _dlinha("Pes_ID").ToString()
            txtPessoasNome.Text = _dlinha("Pes_Razao_Social").ToString()
            Dim frmCadastro As New FrmCadastro() 
            frmCadastro.ShowDialog()



        Catch ex As Exception
            MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            _dlinha = Nothing
            _objs = Nothing
        End Try

    End Sub

Não consigo mostrar os dados nos textbox. Alguém pode me ajudar..

Obrigado.

Eu estou tentando aprender como se fazer para listar os dados usando o valor de retorno Data Row. Eu tenho uma solution que fiz e conseguir usando uma Classe BLL do tipo DataSet.

Obrigado