Ich erhalte keinen Fehler.
Die Variable wird aber im Report nicht angezeigt (Bleibt Leer).
Ich möchte nur die TotalRecords im Report angezeigt bekommen.
Als alternative hat jemand ein Beispiel wie ich alle Records in LazReport zählen und anzeigen kann?
frVariables.Clear; // alles alte Zeug löschen
frVariables['Record_count']:= DataModul.ZQuery1.RecordCount;
Die Variable Record_Count muss im Formular erzeugt werden und kann dann normal im Dokument platziert werden.
Im Zweifelsfall kannst du den Wert auch mit IntToStr(DataModul.ZQuery1.RecordCount) übergeben.
frVariables.Clear; // alles alte Zeug löschen
frVariables['Record_count']:= DataModul.ZQuery1.RecordCount;
Die Variable Record_Count muss im Formular erzeugt werden und kann dann normal im Dokument platziert werden.
Im Zweifelsfall kannst du den Wert auch mit IntToStr(DataModul.ZQuery1.RecordCount) übergeben.
Hallo Oleg
Leider verstehe ich nicht wo ich den Code eintragen muss.
Ist dieser im Report einzutragen? Wenn ja wo?
Ich habe keine "frVariable" Komponente auf dem From.
Ist das erste Mal das ich LazReport verwende.
frVariables.Clear; // alles alte Zeug löschen
frVariables['Record_count']:= DataModul.ZQuery1.RecordCount;
Die Variable Record_Count muss im Formular erzeugt werden und kann dann normal im Dokument platziert werden.
Im Zweifelsfall kannst du den Wert auch mit IntToStr(DataModul.ZQuery1.RecordCount) übergeben.
Hallo Oleg
Leider verstehe ich nicht wo ich den Code eintragen muss.
Ist dieser im Report einzutragen? Wenn ja wo?
Ich habe keine "frVariable" Komponente auf dem From.
Ist das erste Mal das ich LazReport verwende.
procedure TfrmMain.btnReportClick(Sender: TObject);
var reportAlbum:string;
begin
reportAlbum:= ExtractFilePath(ParamStr(0))+'Reports\Albums.lrf';
try
frReport1.LoadFromFile(reportAlbum);
// neue Zeilen:
frVariables.Clear; // alles alte Zeug löschen
frVariables['Record_count']:= DataModul.ZQuery1.RecordCount;
// alte zeile -> raus
// frReport1.Values.FindVariable('RecordCount').Field := QuotedStr('TEST');
frReport1.ShowReport;
except
ShowMessage('Fehler beim öffnen vom Report.'+#13#10+reportAlbum);
end;
end;