Hallo zusammen,
kann mir vielleicht jemand sagen, warum das OnGetValue Ereigniss der frxUserDataSet-Komponente immer zweimal ausgeführt wird?
Es fällt mir gerade schwer das Problem eindeutig zu schildern daher folgend ein Beispiel:
Aufruf des Reports:
Delphi-Quellcode:
frxReportAusdruck.LoadFromFile(Report+'\FRAusdruck.fr3');
frxUserDataSet1.Tag:= 0;
frxReportAusdruck.PrepareReport();
frxReportAusdruck.ShowPreparedReport;
Delphi-Quellcode:
procedure TfrmAusdruck.frxUserDataSet1CheckEOF(Sender: TObject;
var Eof: Boolean);
begin
Eof:= frxUserDataSet1.Tag = frmPuffer.lvPuffer.Items.Count;
end;
procedure TfrmAusdruck.frxUserDataSet1First(Sender: TObject);
begin
frxUserDataSet1.Tag := 0;
end;
procedure TfrmAusdruck.frxUserDataSet1GetValue(const VarName: string;
var Value: Variant);
begin
if VarName = 'XY' then begin
Value := strXY;
end
else if VarName = 'FA' then
Value := strFA
else if VarName = 'Titel' then
Value := strFRTitel
else if VarName = 'Anlage' then
...
end;
procedure TfrmAusdruck.frxUserDataSet1Next(Sender: TObject);
begin
frxUserDataSet1.Tag:= frxUserDataSet1.Tag + 1;
end;
Der Report wird korrekt Angezeigt, aber die Procedure TfrmAusdruck.frxUserDataSet1GetValue wird zweimal ausgeführt. Das heißt, jeder VarName wird zweimal aufgerufen und beschrieben.
Hat vielleicht jemand eine Idee für mich woran das liegen könnte?
Vielen Dank