IMPORTAR DADOS PARA FORMULARIO AO CLIKAR

JRABELO 01/12/2011 10:45:13
#390365
Bom dia.

Por favor, alguém poderia me dizer como eu importo os dados do datagrid para o formulario de cadastro.

Quero consultar e o resultado aperecer no data grid e depois dar um duplo clik na linha e importar esses dados para Formulário de Cadastro para alterar dados quando necessário.
JRABELO 01/12/2011 10:47:02
#390366
Formulario de Consulta.
JRABELO 01/12/2011 11:29:19
#390371
O metodo eu conheço, mas o código não entendi.
JRABELO 01/12/2011 14:18:40
#390383
Por favor, alguém poderia me ajudar!
JRABELO 02/12/2011 03:29:08
#390415
Não deu Certo!
OMAR2011 02/12/2011 07:47:16
#390420 Resposta escolhida
Tente e vamos ver se da certo.

Um exemplo simples de vb6.

No click ou dbclick do seu datagrid coloque assim.

DataGrid1.Col = 0
FrmAluno.Text1.Text = DataGrid1.Text
DataGrid1.Col = 1
FrmAluno.Text2.Text = DataGrid1.Text
DataGrid1.Col = 2
FrmAluno.Text3.Text = DataGrid1.Text
E assim por diante.
Unload Me
JRABELO 02/12/2011 11:24:01
#390444
Coloquei assim no meu projeto!

Private Sub dtgAluno_DblClick()

txtCodigo = dtgAluno.Columns(0)
txtDataCad = dtgAluno.Columns(1)
txtNomeAluno = dtgAluno.Columns(2)
mskNascimento = dtgAluno.Columns(3)
cboTurma = dtgAluno.Columns(4)
cboPeriodo = dtgAluno.Columns(5)
txtAlergia = dtgAluno.Columns(6)
txtRefeicao = dtgAluno.Columns(7)
txtTeve = dtgAluno.Columns(8)
txtCaso = dtgAluno.Columns(9)
txtAlimenta = dtgAluno.Columns(10)
txtCrianca = dtgAluno.Columns(11)
txtNomePai = dtgAluno.Columns(12)
mskRgPai = dtgAluno.Columns(13)
cboPai = dtgAluno.Columns(14)
txtNomeMae = dtgAluno.Columns(15)
mskRgMae = dtgAluno.Columns(16)
cboMae = dtgAluno.Columns(17)
txtEndereco = dtgAluno.Columns(18)
mskTelefone = dtgAluno.Columns(19)

frmConAluno.Hide
frmAluno.Show

End Sub

Não carregou os valores no frmAluno
JRABELO 02/12/2011 11:35:51
#390446
Dessa formna de certo!

dtgAluno.Col = 0
frmAluno.txtCodigo = dtgAluno
dtgAluno.Col = 2
frmAluno.txtNomeAluno = dtgAluno

Obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar