动态的QReport(100分)

X

xll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-22

• #1

需要做一报表，用QReport，其中的QRDBText个数不定，要动态生成
谁有好办法?

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-22

• #2

..

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-22

• #3

比如说在 detailBand1 加
var
dbt:TQRDBText;
dbt:=TQRDBText.Craete(DetailBand1);
dbt.Left:=........
dbt.Top:=.......
dbt.DataSet:=.....
dbt.DataField:=.....
DetailBand1.InsertControl(dbt);

 

L

luweizhong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #4

example:
with TQRDBText(QuickReport2.QRBand1.AddPrintable(TQRDBText))do
begin
Left:=64;
Top:=24;
DataSet:=QuickReport2.DataSet;
DataField:='NAME';
Enabled:=True;
end;

QuickReport2.Table1.Open;
QuickReport2.Preview;
QuickReport2.Table1.Close;

 

X

xll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-24

• #5

我的意思是字段也为动态，
....
DataField:='NAME';
这样写字段无动态可言，
DataField:=var ;变量var每次给出不同的字段,本人目前还未想好，
谁能赶在我想好之前提出方案，100分归他

 

L

liuly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-24

• #6

>>我的意思是字段也为动态，
是不是这个意思：
procedure TForm1.PrintButtonClick(Sender: TObject);
var
dbt:TQRDBText;
begin
dbt:=TQRDBText.Create(self);
dbt.Parent:=Form2.QRDetailBand1;
dbt.Left:=100;
dbt.Top:=10;
dbt.DataSet:=Form2.QuickRep1.DataSet;
dbt.DataField:=Edit1.Text;
Form2.QuickRep1.Preview;
end;

 

X

xll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-29

• #7

多人接受答案了。