edit
if dados.TblItensVendastotal.asstring <> ´´ then
total:=0;
Dados.TblItensVendas.first;
while not Dados.TblItensVendas.eof do
begin
total:=total + Dados.TblItensVendastotal.value;
Dados.TblItensVendas.next;
end;
Formvendas.Edit2.text:=formatcurr(´#0.00´, total);
Total := 0;
Coloquei este código no evento onexit do dbgrid para fazer a soma do campo total da tabela quando saio do Dbgrid ele mostra no edit o valor da venda queria saber como fazer para o valor ficar permanente no edit quando mudo de registro.
total:=0;
Dados.TblItensVendas.first;
while not Dados.TblItensVendas.eof do
begin
total:=total + Dados.TblItensVendastotal.value;
Dados.TblItensVendas.next;
end;
Formvendas.Edit2.text:=formatcurr(´#0.00´, total);
Total := 0;
Coloquei este código no evento onexit do dbgrid para fazer a soma do campo total da tabela quando saio do Dbgrid ele mostra no edit o valor da venda queria saber como fazer para o valor ficar permanente no edit quando mudo de registro.
Luisgrossi
Curtidas 0
Respostas
Aroldo Zanela
15/12/2003
Colega,
Coloque no evento AfterScroll da tabela ao invés de OnExit da dbGrid. Se puder, utilize uma instrução SQL para obter o total (tipo: SELECT SUM(TOTAL) FROM TABELAx WHERE CONDICAOx = :CONDICAO).
Coloque no evento AfterScroll da tabela ao invés de OnExit da dbGrid. Se puder, utilize uma instrução SQL para obter o total (tipo: SELECT SUM(TOTAL) FROM TABELAx WHERE CONDICAOx = :CONDICAO).
GOSTEI 0