Buscar por:

Somar dois campos em um dbgrid utilizando campo calculado

Código

Como somar dois ou mais campos de uma tabela em um dbgrid utilizando o campo calculado. Depois de criar o campo calculado na tabela, No evento OnCalcFields ( da Tabela ) adicione:

Procedure TfrmTeste.tbCadIteCalcFields(DataSet: TDataSet);

var fVlVenda,fIpi: Double;

begin

&& Carrega as variaveis

fVlVenda := tbCadIte.FieldByName('VLRVENDA').AsFloat;

fIpi         := tbCadIte.FieldByName('IPI').AsFloat;

&& Soma o campo calculado

tbCadIte.FieldByName('CAMPOCALCULADO').AsFloat := fVlVenda+fIPI;

end;

Espero ter ajudado.