DBGrid

[mps 0]

Bom dia

 

tenho um dbrid onde digito valor de nota fiscal, o problema e que gostaria que quando o cliente fosse digitando os valores ja fosse somando em um edit

[Chrnos 30]

Se você já está gravando os registros no banco, é só executar um select sum dos valores da nota fiscal e jogar no edit o resultado depois de gravar os valores no BD.

 

Se usar um TStringGrid da vida, vai ter que criar uma rotina que leia linha a linha e some os valores válidos.

 

[]'s

[GustavoArcilla 0]

mps...

 

faça o seguinte, no campo dos valores coloca um evento OnChange e coloque isso

 

var

Total : Double;

begin

{:Somar}

 

with ADOTable1 do

begin

DisableControls; //desativa os controles para melhorar a performance da soma

First; //começo da tabela

while not Eof do //enquanto não for o fim

begin

Total := ( Total + adotable1.FieldByName('ValorTotal').asFloat); //faz a soma total da tabela

Next; //proximo

end;

EnableControls; //quando terminar ativa os controles novamente.

somatotal.Caption := Format('%12.2n',[Total]); //mostra o resultado da tabela em um Label

end;

 

 

somatotal : nome do edit, ai tu pode por oque quiser, de acordo com o nome do edit

ADOTable1 : nome da tabela, no meu caso eu fiz a tabela pelo msaccess

adotable1 : mesma coisa da tabela

ValorTotal : nome do campo

 

 

qualquer duvida posta ai :)