Hello Wilfried,
Ok doh, what I did wrong was:
> QR.QrDbText1.DataField := ADOQuery.FieldByName('TxDT').AsString;
> QR.QrDbText2.DataField := ADOQuery.FieldByName('Msg').AsString;
has of course to be:
QR.QrDbText1.DataField := 'TxDT';
QR.QrDbText2.DataField := 'Msg';
But the real reason all was blank is as whell the QuickRep as each
datafield has to know the dataset (can in OI of course):
QR.QuickRep.DataSet := ADOQuery;
QR.QRDBText1.DataSet := ADOQuery;
QR.QRDBText2.DataSet := ADOQuery;
etc...
rgds, Wilfried
> Hello,
> I has been a long time I used TQuickReport. Now I have to do something
> 'quick' and as always it does not work. Probably I forget something
> simple. If someone can advice should be very happy with it...
> Form with TQuickReport on it, Detailband, and there 2 QrDBText. This
> code produces 9 pages which are all blank :( I have 200 records so 9
> pages should be ok I think. But the QRDBText labels seems not to display
> anything.
> Any idea what I could be forgotten ?
> procedure TMain.Button1Click(Sender: TObject);
> begin
> ADOConnection.Connected := True;
> ADOQuery.SQL.Clear;
> ADOQuery.SQL.Add('select * from Rx');
> ADOQuery.Active := True;
> QR.QrDbText1.DataField := ADOQuery.FieldByName('TxDT').AsString;
> QR.QrDbText2.DataField := ADOQuery.FieldByName('Msg').AsString;
> QR.QuickRep.Preview;
> the ADOQuery is here EOF, so it means QuiReport has stepped tru the
> records. QR is a second form.
> ---
> Rgds, Wilfried
> http://www.mestdagh.biz
> __________________________________________________
> Delphi-Talk mailing list -> [email protected]
> http://www.elists.org/mailman/listinfo/delphi-talk
---
Rgds, Wilfried
http://www.mestdagh.biz
__________________________________________________
Delphi-Talk mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi-talk
