搞定了，请客 (200分)

small pig · 2003-09-23

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

Activer · 2003-09-23

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

ljlljl-79 · 2003-09-23

同楼上

small pig · 2003-09-23

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

duancy · 2003-09-23

duancy@163.net

smhsoft · 2003-09-23

好好看一下，建立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;

dbb2tkw · 2003-09-23

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

fjtdabc · 2003-09-23

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;
希望对你有帮助!!

刀剑如梦 · 2003-10-07

学习

bbs-wqt · 2003-10-09

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

lgxyy · 2003-10-10

fphuang · 2003-10-11

学习

protossgffnxk · 2003-10-11

拿分来了.

joshua_jia · 2003-10-11

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

ycxy · 2003-10-17

随便给点吧

dfw1001 · 2003-10-19

祝贺！

hgood · 2003-10-21

接分！谢谢

leang · 2003-10-23

不错!

程观 · 2003-10-23

接分，哇哈哈

shaga · 2003-10-23

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

搞定了，请客 (200分)

small pig

Unregistered / Unconfirmed

Activer

Unregistered / Unconfirmed

ljlljl-79

Unregistered / Unconfirmed

small pig

Unregistered / Unconfirmed

duancy

Unregistered / Unconfirmed

smhsoft

Unregistered / Unconfirmed

dbb2tkw

Unregistered / Unconfirmed

fjtdabc

Unregistered / Unconfirmed

刀剑如梦

Unregistered / Unconfirmed

bbs-wqt

Unregistered / Unconfirmed

lgxyy

Unregistered / Unconfirmed

fphuang

Unregistered / Unconfirmed

protossgffnxk

Unregistered / Unconfirmed

joshua_jia

Unregistered / Unconfirmed

ycxy

Unregistered / Unconfirmed

dfw1001

Unregistered / Unconfirmed

hgood

Unregistered / Unconfirmed

leang

Unregistered / Unconfirmed

程观

Unregistered / Unconfirmed

shaga

Unregistered / Unconfirmed

Similar threads