TQuickreport & Expression

[Moony]

Man sollte auch den Wert richtig schreiben, dann funktioniert das auch.


Aber da wir schon bei Expression sind, ich muß von einem anderen expression-Feld den Wert nehmen, auswerten und in ein anderes Feld schreiben.

Beispiel:

Delphi-Quellcode:

  Wert := StrToFloat(Epr1.Value.strResult);
  if Dataset.FieldByName('Feld1').AsString = 'Nein' then
    Wert := Wert + StrToFloat('0,50');
  qrLabel.Caption := FloatToStr(Wert);

Das Ganze habe ich in die OnPrint-Routine des Labels eingebaut. Funktioniert so ganz gut, nur wenn er nicht bei allen Datensätzen nur das Ergebnis von dem letzten Datensatz anzeigen würde.

Hoffe jemand hat ne Lösung.