somando campos no ClientDataSet

27/06/2008

10

bom dia a todos,

Tenho um ClientDataSet com os campos valor1, valor2, valor3 inseridos no Fields Editor. E gostaria de somar esses campos e apresentar o valor em um edit.

Alguém sabe me ajudar??

Fico muito Grato


Responder

Posts

27/06/2008

Altingon

No evento oncalcfields vc pode colocar:
edit1.text := floattostr(valor1.value, valor2.value, valor3.value);

Espero ter ajudado


Responder

27/06/2008

Ricklorente

Infelizmente dessa maneira não deu muito certo.

ele me dá a msg: ´Too many actual parameters´.

Peço desculpa e vou tentar me explicar melhor.

Eu preciso na verdade somar 15 campos e não três e queria saber se existe alguma propriedade que some todos os campos no fields Editor do ClientDataSet para não ter que somar valor1+valor2+valor3...etc

Se não existir qual a maneira mais prática que vcs recomendam para somar todos os campos para um iniciante como eu???


Responder

27/06/2008

Altingon

Ou assim

var
  soma:real;
IBQuery1.First;
repeat
   soma := campo1.value + campo2.value +campo3.value + etc;
   IBQuery1.Next;
until IBQuery1.Eof;
Edit1.text := floattostr(soma);


espero ter ajudado


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira