Passar dados de eu DbGrid para um Edit

Question

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 faze...

Japasc · Accepted Answer

FUNCIONOU  COLOCONDO NO EVENTO ONCELCLICK O C�DIGO:DBEDIT3.TEXT := QUERY1.FIELDBYNAME(�NOM_CLI�).ASSTRING;OBRIGADO PRA TODOS!!!...

Lucas Silva · Answer

Tenta esse c�digo ai.[code:1:c82fbb5d1c]edit1.text := qry.FieldByName(dbgrid.Column.FieldName).AsString;[/code:1:c82fbb5d1c]...

Flaviosan · Answer

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.

Japasc · Answer

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.....

Lucas Silva · Answer

[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.

Paulo_amorim · Answer

[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�+

Japasc · Answer

[quote:17b2618853=�Paulo_Amorim�][quote:17b2618853=�Lucas Alves Silva�][quote:17b2618853=�Lucas Alves Silva�]Tenta esse c�digo ai.[code:1:17b2618853]edit1.text := qry.FieldByName(dbgrid.Column.FieldName).AsString;[/code:1:17b2618853][/quote:17b2618853]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[code:1:17b2618853]Edit1.Text := qry.FieldByName(�<nome do teu campo>�).AsString;[/code:1:17b2618853]P.Ex. se o capo eh o codigoEdit1.Text := qry.FieldByName(�COD�).AsString;Espero que ajudeAt�+[/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......

F�rum Passar dados de eu DbGrid para um Edit #223555