somar campos de uma tabela e mostrar numa label

Delphi

31/03/2004

Caros colegas como faço para dar um Sum na tabela e mostrar o resultado numa label

ex:

quero somar todos os itens de uma venda
1 100,00
2 200,00

label1.Caption:=resultado

alguem sabe como dar um Sum direto na tabela

estou usando table

Se alguem puder me ajudar agradeço.


Denis200

Denis200

Curtidas 0

Respostas

Marco Salles

Marco Salles

31/03/2004

alguem sabe como dar um Sum direto na tabela estou usando table


denis200, Eu Naõ Conheço Nem Um Comando Que Se Faça Isto Usando o Table...O Que Pode Ser Feito Dentre Outras Coisa é Voce Definir Uma Query e Usar a Linguagem Sql.. Outra e Fazer Com o Própio Table Mas Varrendo Campo a Campo a Sua Tabela Usando Um Comando While...
Vou Optar Pelo Segundo Para Ser Coerente Como o Que Voce Usa:
Function Total:Real;
var
 BookMark:TBooKmarkStr;
begin
  BookMark:=Form1.Table1.BooKmark;
    result :=0;
      try
        Form1.Table1.First;
          While Not (Form1.Table1.Eof)  do
            begin
              result:=result+Form1.Table1.FieldByName(´NomeCam´).AsFloat;
              Form1.Table1.Next;
            end;
      Finally
        Form1.Table1.BookMark:=BookMark;
      end;
end;

e Depois é So Chamar a Função:

Label1.Caption:=FloatToStr(Total);



GOSTEI 0
Janete

Janete

31/03/2004

[quote=´denis200´]Caros colegas como faço para dar um Sum na tabela e mostrar o resultado numa label

ex:

quero somar todos os itens de uma venda
1 100,00
2 200,00

label1.Caption:=resultado

alguem sabe como dar um Sum direto na tabela

estou usando table

vc pode fazer isso:

Procedure TFrmCadPedido.CalculaTotal;
Var
VarTot :Double;
Begin
VarTot:=0;
TbItens.DisableControls;
TbItens.First;
While Not TbItens.eof do
begin
VarTot:=VarTot+TbItensTotal.Value;
TbItens.Next;
end;
Label1.Caption:=FloatToStrf(VarTot,ffCurrency,18,2);
end;

coloque no post e delete da tabela de itens ou onde desejar:

CalculaTotal;


GOSTEI 0
Nerdex

Nerdex

31/03/2004

Se vc estiver usando o componente Query e com isto uma instrução SQL para realizar a soma... não esqueça de excluír os campos afetados no Field Editor, assim a soma se procederá neste valores do tipo currency de forma adequada.


GOSTEI 0
Denis200

Denis200

31/03/2004

Valeu galera vou tentar Denis200


GOSTEI 0
POSTAR