Quick Report Problem: Gruppenfelder / Gruppensumme

[MrSpock]

Hallo Mada,

zunächst möchte ich dich hier im Forum herzlich willkommen heißen.

Nun zu deiner Frage:

Ich würde im PRIVAT Bereich des Reports eine Variable ZWSumme einfügen (z.B. vom Typ Integer oder Float, was immer du brauchst)

Delphi-Quellcode:

{ Nach dem Drucken des Detailbandes den Wert des Feldes,
das summiert werden soll, hinzuzählen }
procedure TForm3.DetailBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
   ZWSumme := ZWSumme +Table1Pause.AsInteger;
end;

{ Nach Drucken des Gruppenkopfes, Wert neu initialisieren }
procedure TForm3.QRGroup1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
   ZWSumme := 0; 
end;

{ Im GroupFooter ein Label anlegen und die Zwischensumme in der 
OnPrint Methode wie folgt zuweisen }
procedure TForm3.QRLabel2Print(sender: TObject; var Value: String);
begin
   Value := IntToStr(ZWSumme);
end;