Passar dados de eu DbGrid para um Edit

Delphi

31/03/2004

Dae Galera o negócio é o seguinte, eu tenho um DbGrid e um edit e eu quero passar os dados do DbGrid com um click ou duplo click para esse edit, eu achei no DbGrid os eventos OnCElClick e tentei fazer o seguinte nesse evento

Edit1.text := ...

O Problema é que eu não sei o que ele recebe do DbGrid.

Se alguém puder me audar eu agradeço.

Valeu...


Japasc

Japasc

Curtidas 1

Melhor post

Japasc

Japasc

01/04/2004

FUNCIONOU COLOCONDO NO EVENTO ONCELCLICK O CÓDIGO:

DBEDIT3.TEXT := QUERY1.FIELDBYNAME(´NOM_CLI´).ASSTRING;

OBRIGADO PRA TODOS!!!


GOSTEI 1

Mais Respostas

Lucas Silva

Lucas Silva

31/03/2004

Tenta esse código ai.
edit1.text := qry.FieldByName(dbgrid.Column.FieldName).AsString;



GOSTEI 0
Flaviosan

Flaviosan

31/03/2004

Depende do campo (coluna) da dbgrid ue voce quer passar para o edit. o dbgrid para conter informacoes, deve estar ligado a um table ou um query atraves de um datasource. assim voce deve passar nao o valor do dbgrid, e sim da fonte de dados (datasource). Use o evento OnDblClick do dbgrid. fica + ou - assim :
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
   edit1.text := datasource.dataset.fieldbyname(´aqui voce coloca o nome do campo que voce quer passar´).asstring;
end;

isso funciona porque quando voce seleciona uma linha do dbgrid o cursor do datasource aponta para aquele registro.
espero ter ajudado.


GOSTEI 0
Japasc

Japasc

31/03/2004

Galera vcs dois passaram perto mais não rodou nenhum dos dois, eu esqueci de mencionar que estou utilizando uma query para consultar o dbgrid...

Se vcs puderem tentar novamente eu agradeço....

valeu.....


GOSTEI 0
Lucas Silva

Lucas Silva

31/03/2004

[quote:fb70e8500b=´Lucas Alves Silva´]Tenta esse código ai.
edit1.text := qry.FieldByName(dbgrid.Column.FieldName).AsString;
[/quote:fb70e8500b]

qual o problema que deu ai?

Aqui este código funcionou corretamete.


GOSTEI 0
Paulo_amorim

Paulo_amorim

31/03/2004

[quote:7013aca2a4=´Lucas Alves Silva´][quote:7013aca2a4=´Lucas Alves Silva´]Tenta esse código ai.
edit1.text := qry.FieldByName(dbgrid.Column.FieldName).AsString;
[/quote:7013aca2a4]

qual o problema que deu ai?

Aqui este código funcionou corretamete.[/quote:7013aca2a4]

Olá

Se vc conhece o campo que vc quer que o Edit receba, use
Edit1.Text := qry.FieldByName(´<nome do teu campo>´).AsString;


P.Ex. se o capo eh o codigo
Edit1.Text := qry.FieldByName(´COD´).AsString;

Espero que ajude

Até+


GOSTEI 0
Japasc

Japasc

31/03/2004

[quote:17b2618853=´Lucas Alves Silva´][quote:17b2618853=´Lucas Alves Silva´]Tenta esse código ai. 
edit1.text := qry.FieldByName(dbgrid.Column.FieldName).AsString;


qual o problema que deu ai?

Aqui este código funcionou corretamete.[/quote:17b2618853]

Olá

Se vc conhece o campo que vc quer que o Edit receba, use
Edit1.Text := qry.FieldByName(´<nome do teu campo>´).AsString;


P.Ex. se o capo eh o codigo
Edit1.Text := qry.FieldByName(´COD´).AsString;

Espero que ajude

Até+[/quote:17b2618853]

Dae kara o programa roda assim, mais não funciona hehehe

é p seguinte no form eu tenho apenas dois componentes visuais, um Edit e um DbGrid no Edit eu Digito nomes que são mostrados no DbGrid através de uma consulta sql com parâmetro, ai eu quero passar o nome correto para o edit sem ter que digita-lo inteiro soh que agora naum funciona a consulta tb pq ela eh feita o edit1...

Se alguém quiser eu mando o arquivo...


GOSTEI 0
POSTAR