Somar em uma outra coluna do dbgrid .

Question

Srs, algu�m j� conseguiu somar duas ou mais colunas e mostrar a soma em uma outra coluna do dbgrid , sem usar queries ? j� vi dicas para somar toda coluna , n�o � isso ! Obrigado...

Gandalf.nho · Answer

Crie um campo calculado que ir� receber o resultado da soma...

Demostenesjr · Answer

E na hora de calcular e jogar o valor seria algo assim :

procedure TfOrcaSeleProd.dbgProdutoDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);

dbgproduto.Columns[9].Field.text := floattostr(( dtmDados3.tbEstoque1Prec_Venda.asfloat +
dtmDados3.tbEstoque1Preco2.value ) /2 ) ;

Obrigado !

Gandalf.nho · Answer

N�o. Vc ir� criar o campo calculado no seu dataset e usar o evento OnCalcFields para calcular seu valor. Da� basta tratar o campo calculado como se fosse um campo comum, criando uma nova coluna no DBGrid e atribuindo o campo a ela.

Demostenesjr · Answer

Obrigado .  Funcionou  ! :P...

F�rum Somar em uma outra coluna do dbgrid . #283934