faz assim:
var dTotal : double;
coloque no afteropen da query ou tabela:
nomedatabela/query.First;
while not nomedatabela/query.eof do
begin
dTotal := dTotal + nomedatabela/query.fields[indicedocamponatabela].Value;
nomedatabela/query.Next;
end;
nomedoformulario.nomedolabel.caption := FormatFloat('#,##0.00',dTotal);
Seria mais ou menos isto....
----- Original Message -----
From: ediberto_alves
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, September 01, 2005 5:00 PM
Subject: [delphi-br] Re: Somar coluna em dbGrid.
Bem por aí André.
Vc tem algum exemplo de uso dessa variável?
Obrigado
Ediberto Alves
[EMAIL PROTECTED]
--- Em delphi-br@yahoogrupos.com.br, "Andre - Yahoo" <[EMAIL PROTECTED]>
escreveu
> Não sei se entendi direito, mas eu faço isto no open da tabela ou
query, faço um laço e somo em uma variável e depois jogo o valor da
variável no label, edit...
> ----- Original Message -----
> From: ediberto_alves
> To: delphi-br@yahoogrupos.com.br
> Sent: Thursday, September 01, 2005 4:38 PM
> Subject: [delphi-br] Somar coluna em dbGrid.
>
>
> Olá Pessoal tudo bem?
>
> Gostaria de saber como faz para somar toda uma coluna (VALOR
TOTAL) de
> um dbgrid e aparecer o valor em um label ou um dbedit.
> Não quero implementar o código num botão, e clicando nesse botão
> apareceria o valor total e sim implementar num componente. Quanto
vai
> somando, vai incrementando os valores.
>
> Estou usando: dataset + datasetprovider + clientdataset.
> Todos componentes da FibPlus
>
> Alguém pode me dar uma luz?
>
> Agradeço antecipadamente
>
> []´s
>
> Ediberto Alves
>
> [EMAIL PROTECTED]
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
>
> --------------------------------------------------------------------
----------
> Links do Yahoo! Grupos
>
> a.. Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> b.. Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
>
> c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!.
>
>
>
>
> --------------------------------------------------------------------
--------
>
> avast! Antivirus: Inbound message clean.
>
> Virus Database (VPS): 0535-2, 31/08/2005
> Tested on: 1/9/2005 16:42:20
> avast! - copyright (c) 1988-2005 ALWIL Software.
>
>
>
>
> ---
> avast! Antivirus: Outbound message clean.
> Virus Database (VPS): 0535-2, 31/08/2005
> Tested on: 1/9/2005 16:44:26
> avast! - copyright (c) 1988-2005 ALWIL Software.
> http://www.avast.com
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
----------------------------------------------------------------------------
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0535-2, 31/08/2005
Tested on: 1/9/2005 17:11:03
avast! - copyright (c) 1988-2005 ALWIL Software.
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0535-2, 31/08/2005
Tested on: 1/9/2005 17:15:40
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
