Einzelnen Beitrag anzeigen

EarlyBird

Registriert seit: 29. Mär 2007
235 Beiträge
 
#21

AW: Fast Report - Leerzeile einfügen bei fehlendem Datensatz

  Alt 4. Dez 2014, 07:55
du kannst es auch einfach mit einem Script im Report machen
In den Report ein Masterband und ein Detailband einfügen
Masterband Deinem Dataset zuordnen.
Detailband nicht zugeordnet Anzahldatensätze auf 1 stellen
Siehe Screenshot1
Das Ergebnis siehe Screenshot2

Delphi-Quellcode:
var
 LastMeldergruppe : integer;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  //leere Zeile ausblenden
  MasterData1.visible := False;
  if (LastMeldergruppe) <> <frxDBDataset1."Meldergruppe"> then
    begin
     //leere Zeile anzeigen
     MasterData1.visible := True;
    end;
  LastMeldergruppe := <frxDBDataset1."Meldergruppe"> + 1;
end;

procedure frxrprt1OnStartReport(Sender: TfrxComponent);
begin
    MasterData1.DataSet.First;
    LastMeldergruppe := <frxDBDataset1."Meldergruppe">;
end;
Miniaturansicht angehängter Grafiken
report.png   report-ii.png  

Geändert von EarlyBird ( 4. Dez 2014 um 07:57 Uhr)
  Mit Zitat antworten Zitat