Fórum somar campos de uma tabela e mostrar numa label #223615
31/03/2004
0
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
Curtir tópico
+ 0Posts
31/03/2004
Marco Salles
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
31/03/2004
Janete
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
31/03/2004
Nerdex
Gostei + 0
01/04/2004
Denis200
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)