FastReport TfrxUserDataSet Summe ziehen

[Ykcim]

Hallo Zusammen,

ich breche mir gerade die Ohren, in einem FastReport, der mit einer TfrxUserDataSet befüllt wird, eine Summe zu erzeugen. Aktuell habe ich ein Übungsprogramm mit ganz einfachen Daten, die ich aus einem JSONArray heraushole:

Delphi-Quellcode:

procedure TForm1.btnCreateLabel1Click(Sender: TObject);
var   Rprt: TfrxReport;
      frxData: TfrxComponent;
      fUDataSet: TfrxUserDataSet;
begin
   Rprt:= TfrxReport.Create(nil);
   JsDataProforma:= TJSONArray.Create;
   Try
      JsDataProforma.AddElement(TJSONObject.ParseJSONValue('{"Name": "Müller","Vorname": "Eugen", "Alter": 93}') as TJSONObject);
      JsDataProforma.AddElement(TJSONObject.ParseJSONValue('{"Name": "Schmidt","Vorname": "Hans", "Alter": 97}') as TJSONObject);
      JsDataProforma.AddElement(TJSONObject.ParseJSONValue('{"Name": "Schulz","Vorname": "Günter", "Alter": 94}') as TJSONObject);
      frxDataSet.RangeEnd := reCount;
      frxDataSet.RangeEndCount:= JsDataProforma.Count;
      Rprt.OnGetValue:= frxRprtProformaOnGetValue;
      Rprt.LoadFromFile(extractfilepath(paramstr(0)) + '.\Res\Test.fr3');

      frxData:= Rprt.FindObject('DataItems');
      (frxData as Tfrxmasterdata).DataSet:= frxDataSet;

      Rprt.ShowReport(True);
   Finally
      //Muss noch befüllt werden!
   End;
end;

In dem OnGetValue Event des Report lasse ich die Werte in das frxDataSet laden:

Delphi-Quellcode:

procedure TForm1.frxRprtProformaOnGetValue(const VarName: string; var Value: Variant);
var   JsData: TJSONObject;
      WertAlter: integer;
begin
   JsData:= TJSONObject.Create;
   Try
      if JsDataProforma.Items[frxDataSet.RecNo] is TJSONObject then begin
         JsData:= TJSONObject.ParseJSONValue(TJSONObject(JsDataProforma.Items[frxDataSet.RecNo]).ToString) as TJSONObject;
         Value:= JsData.GetValue<string>(VarName);
      end;
   Finally
      JsData.Free;
   End;
end;

Soweit klappt auch alles. Jetzt möchte ich aber die Summe des Alters (ist nur eine Übung) unter der Tabelle ausgeben. Dazu habe ich ein Band "ReportSummary" unterhalb des MasterData eingefügt und eine TextObject.

In das TextObject habe ich folgendes gesetzt:

Code:

[Sum(<frxDataSet."Alter">.DataItems)]

//Fehlermeldung: Wert <"Alter">.DataItems nicht gefunden (auch ohne Gänsefüßchen)

Code:

[Sum(Alter)]

//Fehlermeldung: Wert Sum(Alter) nicht gefunden

Code:

[sum(DataItems.Alter)]

//Fehlermeldung: Wert DataItems.Alter nicht gefunden

Code:

[Sum(frxDataSet.Alter)]

//Fehlermeldung: Wert frxDataSet.Alter nicht gefunden

Code:

[Sum([frxDataSet."Alter"])]

//Fehlermeldung: Ungültiger Index für Array: frxDataSet."Alter"

DataItems ist der Name des MasterData Bands.
frxDataSet ist der Name des TfrxUserDataSets.

Kann mir jemand sagen, wie ich das Alter summieren kann?

Vielen Dank
Patrick