transferencia de dados entre dbgrid

[kklj 0]

tenho 2 dbgrid na mesma unit, onde no dbgri1 mostra os dados de minha tabela, e gostaria q qdo desse um duploclique nele enviasse alguns campos desse dbgrid para o dbgrid2. como faço isso?

 

obrigado

[Sérgio H. Martins 0]

Ola kklj

 

No envento Dblclick de seu dbgrid você pode usar um for como por exemplo esse abaixo:

A Transf. se da em cima do dataset e não do dbgrid, ele apenas mostra os dados, segue abaixo o código:

 

 

procedure TForm1.DBGrid1DblClick(Sender: TObject);

var

Idx :Integer;

begin

if DBGrid1.SelectedRows.Count > 0 then

begin

for Idx := 0 to DBGrid1.SelectedRows.Count-1 do

begin

 

// posiciona o dataset de origem no "n" registro selecionado

dm.ADOQuery1.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[idx]));

 

// move os dados do dataset de origem para destino aqui

dm.ADOQuery2.Append;

dm.ADOQuery2num_fatura.text := dm.ADOQuery1num_fatura.text;

dm.ADOQuery2num_duplic.text := dm.ADOQuery1num_duplic.text;

dm.ADOQuery2sistnum_estxxx.text := dm.ADOQuery1num_estxxx.text;

dm.ADOQuery2sistdat_emissa.text := dm.ADOQuery1dat_emissa.text;

dm.ADOQuery2sistdat_pagato.asstring :=dm.ADOQuery1dat_pagato.asstring;

dm.ADOQuery2sisttxt_situac.text := dm.ADOQuery1txt_situac.text;

dm.ADOQuery2num_valapa.text := dm.ADOQuery1num_valapa.text;

dm.ADOQuery2txt_bancoc.text := dm.ADOQuery1txt_bancoc.text;

Dm.ADOQuery2.Post;

 

 

end;

end;

end;

 

Estarei a disposição.

 

Um abraço

 

Sérgio Martins