Summenbildung im QuickReport?

[gogl1985]

Habe das Problem selbst wie folgt gelöst:

Delphi-Quellcode:

procedure TForm1.Query1AfterScroll(DataSet: TDataSet);
begin
anzahl_ds:=anzahl_ds+1;

if anzahl_ds>Query1.RecordCount then
   begin

   end
   else
       begin
       if Query1.FieldByName('Lagerbestand').AsString='' then
            begin
            summenetto := summenetto + Query1.FieldByName('Preis').AsFloat;
            end
       else
            begin
            summenetto := summenetto + (Query1.FieldByName('Preis').AsFloat*Query1.FieldByName('Lagerbestand').AsFloat);
            end;
       end;

end;

Anzahl der Datensätze mit RecordCount abfragen und entsprechend berechnen.