Oi JOM, então...Cod_fun é meu 1 item do DB.

 

Segue código que traz envia os dados para o outro form mas,

apenas o último item, qualquer item que eu clico e aperto no botão alterar

ele traz apenas o último registro. O problema é que não sei como implementar

um código para que faça isso de fato, segue code:

 

Do Until .EOF

    grdPesquisa.AddItem RST(0) & vbTab & RST(1) & vbTab & RST(2) & vbTab & RST(3) & vbTab & RST(4) & vbTab & RST(5) & vbTab & RST(6) & vbTab & RST(7) & vbTab & RST(8)
    grdPesquisa.ColAlignment(0) = 3
    grdPesquisa.ColAlignment(1) = 1
    grdPesquisa.ColAlignment(2) = 1
    grdPesquisa.ColAlignment(3) = 3
    grdPesquisa.ColAlignment(4) = 3
    grdPesquisa.ColAlignment(5) = 1
    grdPesquisa.ColAlignment(6) = 3
    grdPesquisa.ColAlignment(7) = 3
    grdPesquisa.ColAlignment(8) = 3
           
    'RST.Filter = "Codigo = " & grdPesquisa.Columns.Item(0) & ""

    Cadastro_funcionario.TxtNomeFuncionario.Text = RST(1)
    Cadastro_funcionario.TxtEndereco.Text = RST(2)
    Cadastro_funcionario.TxtComple.Text = RST(3)
    Cadastro_funcionario.TxtCep.Text = RST(4)
    Cadastro_funcionario.TxtBairro.Text = RST(5)
    Cadastro_funcionario.TxtCidade.Text = RST(6)
    Cadastro_funcionario.TxtTelefone.Text = RST(7)
    Cadastro_funcionario.TxtCelular.Text = RST(8)
   
      .MoveNext
    Loop
   
    grdPesquisa.RemoveItem 1
 
  End If

No momento eu nao tenho como testa no vb, mas a um tempo eu chegei a seguinte solucao:

 

Private Sub grd_DblClick()
grd.col = 0

form2.text1.text = "texto contido na linha selecionada, primeira coluna"

grd.col=1

form2.text2.text = "texto contido na linha selecionada, segunda coluna"

End Sub

 

coloquei no evento DblClick, para que o vb possa reconhecer a linha selecionada, por que no click, as vezes ele pega a linha de onde esta saindo e nao a linha de destino.

 

 

sem mais,

oi Presuntus, implementei assim:

 

Private Sub grdPesquisa_Click()
    grdPesquisa.Col = 1
    Cadastro_funcionario.TxtNomeFuncionario.Text = RST(1)
    grdPesquisa.Col = 2
    Cadastro_funcionario.TxtEndereco.Text = RST(2)
    grdPesquisa.Col = 3
    Cadastro_funcionario.TxtComple.Text = RST(3)
    grdPesquisa.Col = 4
    Cadastro_funcionario.TxtCep.Text = RST(4)
    grdPesquisa.Col = 5
    Cadastro_funcionario.TxtBairro.Text = RST(5)
    grdPesquisa.Col = 6
    Cadastro_funcionario.TxtCidade.Text = RST(6)
    grdPesquisa.Col = 7
    Cadastro_funcionario.TxtTelefone.Text = RST(7)
    grdPesquisa.Col = 8
    Cadastro_funcionario.TxtCelular.Text = RST(8)
End Sub

 

mas da erro de runtime 3021

 

BOF ou EOF sao verdadeiros, ou o registro atul foi excluido. A operação solicitado

pelo aplicativo requer um registro atual

 

 

 

obrigado

Linho sempre vem o último registro em função da posição da linha da grade vc tem que num evento click fazer grdPesquisa.row= linha da pesquisa