Transferir dados do DBGrid1 para o DBGrid2
09/12/2003
0
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
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
Diego Souza
Curtir tópico
+ 0
Responder
Posts
09/12/2003
Luizfernando777
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;
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
Clique aqui para fazer login e interagir na Comunidade :)