Calcula entre celulas do DBGrid

Delphi

24/12/2004

Estou tentando efetuar calculos (matemáticos e logicos) entre celulas do DBGrid. O resultado deverá ficar em uma coluna que não existe no Banco de Dados que é o ACCESS. Está coluna só existe na aplicação.
Delphi 7


Marcs

Marcs

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

24/12/2004

Colega,

1. Vc deve criar no seu DataSet (Table, Query) um TField do tipo ´[b:6223ec2c52]Calculated[/b:6223ec2c52]´.

2. A coluna que receberá o valor deve estar associada à este TField.

3. No evento [b:6223ec2c52]OnCalcFields[/b:6223ec2c52] do DataSet você atribui o cálculo ao TField
Exemplo:
with MeuDataSet do
begin
  FieldByName(´MeuCampoCalculado´).Value:= 
    FieldByName(´MeuCampo1´).Value + FieldByName(´MeuCampo2´).Value;
end;


Espero ter ajudado...
T+


GOSTEI 0
Dataclass

Dataclass

24/12/2004

Ou entao vc faz os calculos no próprio SQL algo assim
SELECT  campo1,campo2,(campo1 + campo2) as somaCampos
[/code]


GOSTEI 0
Marcs

Marcs

24/12/2004

Colega, 1. Vc deve criar no seu DataSet (Table, Query) um TField do tipo ´[b:a7a16b7038]Calculated[/b:a7a16b7038]´. 2. A coluna que receberá o valor deve estar associada à este TField. 3. No evento [b:a7a16b7038]OnCalcFields[/b:a7a16b7038] do DataSet você atribui o cálculo ao TField Exemplo: 
with MeuDataSet do
begin
  FieldByName(´MeuCampoCalculado´).Value:= 
    FieldByName(´MeuCampo1´).Value + FieldByName(´MeuCampo2´).Value;
end;
Espero ter ajudado... T+


Valeu. Mas como referencias celulas que por exemplo não estejam na mesma linha.
Se estivesse usando a Excel a formula seria a seguinte.
=b1+a2 na celula onde ficaria o resultado.


GOSTEI 0
POSTAR