ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

somar campos da tabela

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
claudio3440
Aprendiz
Aprendiz


Registrado: Quinta-Feira, 17 de Abril de 2008
Mensagens: 150

MensagemEnviada: Qua Fev 16, 2011 8:06 pm    Assunto: somar campos da tabela Responder com Citação

Tenho um sisteminha em delphi 7 e paradox e uso na minha tabela de itenso seguinte codigo para obter o total na linha do dbgrid

procedure TFAlimentacao.Table2CalcFields(DataSet: TDataSet);
begin
Table2Total.Value := Table2Quantidade.Value * Table2CHOG.value;
end;

Todos os 3 campos sao numeros

Esta apresentando o erro de que eu nao posso usar o operator.
Como resolver isto?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qua Fev 16, 2011 8:08 pm    Assunto: Responder com Citação

Não sei se vai resolver, mais tente assim

Código:
procedure TFAlimentacao.Table2CalcFields(DataSet: TDataSet);
begin
Table2Total.asCurrency := (Table2Quantidade.asCurrency * Table2CHOG.asCurrency);
end;



Em vez de passar o value
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
carbox
Colaborador
Colaborador


Registrado: Quarta-Feira, 3 de Março de 2010
Mensagens: 1471

MensagemEnviada: Qua Fev 16, 2011 9:06 pm    Assunto: Responder com Citação

Adriano, se eu entendi ele quer somar a coluna, no exemplo abaixo calcula a o total por linha...

Em geral eu gosto de usar uma query

Código:
 Select SUM(campo) from Tabela


adriano_servitec escreveu:
Não sei se vai resolver, mais tente assim

Código:
procedure TFAlimentacao.Table2CalcFields(DataSet: TDataSet);
begin
Table2Total.asCurrency := (Table2Quantidade.asCurrency * Table2CHOG.asCurrency);
end;



Em vez de passar o value
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Borland_Linuxer
Moderador
Moderador


Registrado: Terça-Feira, 11 de Outubro de 2005
Mensagens: 4252
Localização: Manaus - Am

MensagemEnviada: Qua Fev 16, 2011 9:37 pm    Assunto: Re: somar campos da tabela Responder com Citação

claudio3440 escreveu:
Tenho um sisteminha em delphi 7 e paradox e uso na minha tabela de itenso seguinte codigo para obter o total na linha do dbgrid

procedure TFAlimentacao.Table2CalcFields(DataSet: TDataSet);
begin
Table2Total.Value := Table2Quantidade.Value * Table2CHOG.value;
end;

Todos os 3 campos sao numeros

Esta apresentando o erro de que eu nao posso usar o operator.
Como resolver isto?


Posta a mensagem de erro que o delphi mostra.

O erro e levantado quando chega na minha de soma ?

E em apenas alguns itens ou em todos ?
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário MSN Messenger
claudio3440
Aprendiz
Aprendiz


Registrado: Quinta-Feira, 17 de Abril de 2008
Mensagens: 150

MensagemEnviada: Qui Fev 17, 2011 3:55 pm    Assunto: somar Campos da tabela [Resolvido] Responder com Citação

Obrigado Adriano, deu certinho agora.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB