搞定了，请客 (200分)

S

small pig

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #1

窗体上有几个edit控件（不定），怎样用fastreport动态来把他们里面的数据打印出来？

 

A

Activer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #2

用遍历一下
for i := 0 to Form1.ComponentCount - 1
begin
tmpEdit := Form1.Components as TEdit ;
...
end;

 

L

ljlljl-79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #3

同楼上

 

S

small pig

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #4

楼上两位没有答在点子，但是还是谢谢各位

 

D

duancy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #5

duancy@163.net

 

S

smhsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #6

好好看一下，建立BAND等！！！
frReport1.Pages.Add;
// create page
Page := frReport1.Pages[Pagered^.ipage];
b := TfrBandView.Create;
// create Title band
b.SetBounds(0,ttop, 0, theight);
// position and size in pixels
b.BandType := btPageHeader;
// (only Top and Height are significant
Page.Objects.Add(b);
// for the band)
icount :=MyList.Count;
for i:=0 to icount-1do
begin
mLabstr := MyList.Items;
CreatLab(mLabstr,0);
end;

icount :=MyListcap.Count;
for i:=0 to icount-1do
begin
mLabstr := MyListcap.Items;
CreatLab(mLabstr,1);
end;

b := TfrBandView.Create;
// create MasterData band
b.SetBounds(0, dtop, 0, idataHight);
b.BandType := btMasterData;
b.Dataset := Pagered^.frdb.Name;
// band's dataset
Page.Objects.Add(b);

for i:=0 to icount-1do
begin
mLabstr := MyListdata.Items;
CreatLab(mLabstr,1);
end;

b := TfrBandView.Create;
b.SetBounds(0, gtop, 0, idataHight);
b.BandType := btMasterFooter ;
b.Script.Add('begin
');
stemp:='while FreeSpace * 5/18 > ' + inttostr(idataHight) + 'do
';
b.Script.Add(stemp);
b.Script.Add(' ShowBand(Child1) ');
b.Script.Add('end');
b.Name :='MasterFooter';
Page.Objects.Add(b);
b := TfrBandView.Create;
b.SetBounds(0, ctop, 0, idataHight);
b.BandType := btChild ;
b.Name :='Child1';
Page.Objects.Add(b);
for i:=0 to icount-1do
begin
mLabstr := mynull.Items;
CreatLab(mLabstr,1);
end;

b := TfrBandView.Create;
// create Title band
b.SetBounds(0, ftop, 0, fheight);
// position and size in pixels
b.BandType := btPagefooter;
// (only Top and Height are significant
Page.Objects.Add(b);
// for the band)
icount :=Myfoot.Count;
for i:=0 to icount-1do
begin
mLabstr := Myfoot.Items;
CreatLab(mLabstr,0);
end;

 

D

dbb2tkw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #7

在报表中的一个memo中标上sa即可,其他的同理
procedure TForm1.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
if parname='sa' then
parvalue:=edit1.text;
end;

 

F

fjtdabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-23

• #8

procedure Tfrmdepotdetail.N3Click(Sender: TObject);//打印按钮
var
t:TfrMemoView;
begin
frDBDataSet1.DataSet:=Query_depotdetail;
frReport1.LoadFromFile('biao/其他/仓库明细帐.frf');
t:= TfrMemoView(uDataModule.DataModule1.frReport1.FindObject('memo16'));
t.Memo.Text:=carid.Text;
t:= TfrMemoView(uDataModule.DataModule1.frReport1.FindObject('memo26'));
t.Memo.Text:='入库数量: '+inttostr(i_ALLNO);
.........................
end;
希望对你有帮助!!

 

刀

刀剑如梦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-07

• #9

学习

 

B

bbs-wqt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-09

• #10

frRInstock.LoadFromFile('../报表单元/InStock.frf');
frRInstock.FindObject('memo1').Memo.Text:=edit1.text;
frRInstock.FindObject('memo2').Memo.Text:=edit2.text;
.....

 

L

lgxyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-10

• #11

好

 

F

fphuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-11

• #12

学习

 

P

protossgffnxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-11

• #13

拿分来了.

 

J

joshua_jia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-11

• #14

學習中.........................................

 

Y

ycxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #15

随便给点吧

 

D

dfw1001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-19

• #16

祝贺！

 

H

hgood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #17

接分！谢谢

 

L

leang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #18

不错!

 

程

程观

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #19

接分，哇哈哈

 

S

shaga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-23

• #20

用fr的变量啊，对应赋值就可以了