Ñão quer somar com oncalcfields
18/03/2003
0
procedure TFrmCheques.TblChequeCalcFields(DataSet: TDataSet);
begin
TblChequeTCheque.AsFloat:=0;
TblCheque.First;
while not TblCheque.Eof do begin
TblChequeTCheque.AsFloat:=TblChequeTCheque.AsFloat+TblChequeValorche.Value;
TblCheque.Next;
end;
Edit1.Text:=FloatToStr(TblChequeTCheque.AsFloat);
end;
Consorte
Posts
18/03/2003
Anonymous
18/03/2003
Consorte
ValorChe é o campo do valor de cada cheque e TblCheques é minha tabela.
Não quer funcionar no OncalcFields
procedure TFrmCheques.TblChequeCalcFields(DataSet: TDataSet);
begin
TblChequeTCheque.Value:=0;
while not TblCheque.Eof do
begin
TblChequeTCheque.Value:=TblChequeTCheque.Value+TblChequeValorChe.Value;
TblCheque.Next;
end;
Label2.Caption:=FloatToStr(TblChequeTcheque.Value);
end;
18/03/2003
Consorte
18/03/2003
Anonymous
sugiro você totalizar com uma query utilizando o group by e depois criar um campo lookup
Clique aqui para fazer login e interagir na Comunidade :)