Einzelnen Beitrag anzeigen

fillibuster

Registriert seit: 3. Nov 2010
Ort: Coesfeld
245 Beiträge
 
Delphi 2010 Professional
 
#24

AW: FastReport5 - Zeile in frxDBDataset einfügen

  Alt 23. Jul 2015, 11:35
Ja ich nochma

habe es jetzt so probiert, aber die Labels werden nicht übersprungen. Ich finde den Fehler nicht:

Delphi-Quellcode:
  private
    labeljump : integer;
    linecount : integer;

....

procedure Treport.Button3Click(Sender: TObject);
begin
  labeljump := 5;

  data.reportQuery.Open;

  datasetLabels.RangeEndCount := (data.reportQuery.RecordCount + labeljump);

  main.frxReport1.Clear;
  main.frxReport1.DataSet := datasetLabels;
  main.frxReport1.LoadFromFile(reportPath + 'test.fr3');
  SetVariables();
  main.frxReport1.ShowReport(true);

end;

procedure Treport.datasetLabelsCheckEOF(Sender: TObject; var Eof: Boolean);
begin
  Eof := linecount >= (data.reportQuery.RecordCount + labeljump)
end;

procedure Treport.datasetLabelsFirst(Sender: TObject);
begin
  linecount := 0;
end;

procedure Treport.datasetLabelsNext(Sender: TObject);
begin
  inc(linecount);
end;

procedure Treport.datasetLabelsPrior(Sender: TObject);
begin
  dec(linecount);
end;

procedure Treport.datasetLabelsGetValue(const VarName: string;
  var Value: Variant);
begin
  if datasetLabels.RecNo > labeljump then
  begin
    if VarName = 'idthen Value := data.reportQuery.FieldByName('id').AsInteger;
    if VarName = 'lastnamethen Value := data.reportQuery.FieldByName('lastname').AsString;
    ...
  end;
end;

Geändert von fillibuster (23. Jul 2015 um 11:56 Uhr)
  Mit Zitat antworten Zitat