edit

15/12/2003

1

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


Responder

Posts

15/12/2003

Aroldo Zanela

Colega,

Coloque no evento AfterScroll da tabela ao inv閟 de OnExit da dbGrid. Se puder, utilize uma instru玢o SQL para obter o total (tipo: SELECT SUM(TOTAL) FROM TABELAx WHERE CONDICAOx = :CONDICAO).


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