Transferir dados do DBGrid1 para o DBGrid2

09/12/2003

1

Tenho um form de orçamentocom 2 Dbgrids
como posso fazer que quando eu de dois cliques no
Dbgrid1(COD.PRODUTOS,VALOR, ele passe todas as informaçoes para o Dbgrid2(INCLUINDO COD.PRODUTOS,VALOR)...
E para imprimir posso usar o quick report?
como fazer para imprimir apenas o orçamento q eu fiz???
eu tentei DBGrid1.Fields[0].Text:=Form1.DBGrid1.Fields[0].Text;
mas o rpograma trava,,
o q eu posso fazer?


[b:aeaf4edf51]Título editado: ´URGENTE!!!´[/b:aeaf4edf51]
Escreva o título do tópico contendo uma pequena descrição de sua dúvida. Por favor, leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.
Sandra/Moderação


Responder

Posts

Bom, se eu entendi o q vc precisa vc faz o seguinte:
exemplo:

supondo que o dbgrid1 está mostrando os dados da Table1 e o
dbgrid2 está mostrando dos dados da Table2

no evento OnDblClick do dbGrid1

try
table2.Append;
Table2Codigo.Value := table1Codigo.Value;
Table2Descricao.Value := table1Descricao.value;
e assim por diante
table2.Post;
except
showmessage(´erro ao transportar os dados´);
table2.cancel;
end;

depois p/ imprimir geralmente qdo
vou pegar algo de uma table e preciso só
de um registro eu uso o SetRange
exemplo:

try
Table2.IndexFieldNames := ´codigo´;
Table2.SetRange([Table2Codigo.Value],[Table2Codigo.Value]);
Application.CreateForm(TFImprimir, FImprimir);
FImprimir.QReport.Print; //Preview;
finally
FImprimir.Free;
Table2.CancelRange;
end;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira