Quickreport: Daten (nicht aus DB) in einem Band ausgeben?

[BluesKid]

Moin moin

geht ist relativ simpel.

Was du brauchst ist das Ereignis BeforePrint eines QRBands oder eines QRLabels. Da kannst du ja dann mittels ner if Anweisung den Inhalt des DB-Feldes Festellen und dann entsprechend den Text in einem Label änder oder was auch immer passieren soll.

Beispiel (hier mit nem QRBand auf dem ein QRLabel ist):

Delphi-Quellcode:

procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  if ADOTable1.fieldbyname('AB').text = 'a' then QRLabel1.caption := 'Hallo'
  else QRLabel1.caption := 'HalliHallo';
end;

schönen Gruß

Sam