J
jackeysen
Unregistered / Unconfirmed
GUEST, unregistred user!
现处理一个报表,主要的目的是想要把最终生成的报表,也就是预览时能看到的报表写入数据库中,使用流来存储报表,
1。如果我直接在fastreport的编辑里加上数据表的字段,直接显示报表的记录,代码如下:form1.frReport1.ShowReport;
Table1.Open;
Table1.Append;
Table1['aa']:=form1.Edit1.Text;
form1.frReport1.SaveToBlobField(Table1.FieldByName('report'));
Table1.Post;
这样的话数据库对应得字段可以保存报表,然后可直接从数据库中取出并浏览
2。但是我的报表不是每个字段值都是从表中得来,还有还要控制每页的记录数等等....的条 件,这样就要在fastreport中定义一些变量,然后在fastreport.ManualBuild中做一些工作,这时问题就出来了,代码如下:
点击按钮后:
form1.frReport1.ShowReport;
Table1.Open;
Table1.Append;
Table1['aa']:=form1.Edit1.Text;
form1.frReport1.SaveToBlobField(Table1.FieldByName('report'));
Table1.Post;
......
procedure TForm1.frReport1ManualBuild(Page: TfrPage);
var //这里举个简单的例:'V1'是在FASTREPORT中定义的
i:integer;
// 变量,
begin
for i:=1 to form1.Table2.RecordCountdo
begin
frvariables['v1']:=inttostr(i+1);
page.ShowBandByName('main');
end;
end;
这样后,我在预览中可看到生成的报表,但是却保存不到数据库中,取出来是空的!!!
为甚么呢???哪位大大这样做过的呀,给点意见啊!!!!!能这样作的吗???
1。如果我直接在fastreport的编辑里加上数据表的字段,直接显示报表的记录,代码如下:form1.frReport1.ShowReport;
Table1.Open;
Table1.Append;
Table1['aa']:=form1.Edit1.Text;
form1.frReport1.SaveToBlobField(Table1.FieldByName('report'));
Table1.Post;
这样的话数据库对应得字段可以保存报表,然后可直接从数据库中取出并浏览
2。但是我的报表不是每个字段值都是从表中得来,还有还要控制每页的记录数等等....的条 件,这样就要在fastreport中定义一些变量,然后在fastreport.ManualBuild中做一些工作,这时问题就出来了,代码如下:
点击按钮后:
form1.frReport1.ShowReport;
Table1.Open;
Table1.Append;
Table1['aa']:=form1.Edit1.Text;
form1.frReport1.SaveToBlobField(Table1.FieldByName('report'));
Table1.Post;
......
procedure TForm1.frReport1ManualBuild(Page: TfrPage);
var //这里举个简单的例:'V1'是在FASTREPORT中定义的
i:integer;
// 变量,
begin
for i:=1 to form1.Table2.RecordCountdo
begin
frvariables['v1']:=inttostr(i+1);
page.ShowBandByName('main');
end;
end;
这样后,我在预览中可看到生成的报表,但是却保存不到数据库中,取出来是空的!!!
为甚么呢???哪位大大这样做过的呀,给点意见啊!!!!!能这样作的吗???