Hallöchen,
mit folgenden source will ich aus einem adoquery drucken.
Dazu greife ich mit NeedData darauf zu.
Es wird jedoch nur der erste Datensatz gedruckt, allerdings
soviel mal wie die Ergebnismenge lautet.
Sind 3 Datensätze vorhanden, werden 3 Zeilen gedruckt, mit dem Inhalt des ersten Satzes:
Delphi-Quellcode:
procedure Tkbon.bonrepNeedData(Sender: TObject; var MoreData: Boolean);
begin
if ergz = 0 then
bonrep.NewColumn;
if haupt.liste.listmodus = False then begin
spa1.caption := haupt.liste.tichq.fieldbyname('menge').asString;
spa2.Caption := haupt.liste.tichq.fieldbyname('aname').asString;
spa3.Caption := format('%f',[haupt.liste.tichq.fieldbyname('messung').asFloat]);
haupt.liste.tichq.Next;
moredata := ergz <= haupt.liste.tichq.RecordCount -1;
end;
end;
inc(ergz);
end;
Nun doktore ich ergebnislos daran rum...
Kann jemand helfen?