5,927
社区成员
发帖
与我相关
我的任务
分享如何让Fastreport中某个masterData像pageheader那样每页都显示？
需要打印的样式如图所示（但具体内容有所修改），上面的红色部分是每页都要打印的，即每页内容都相同，直到下面“获得荣誉”打印完毕
说明一下，获得荣誉与岗位变化是没有主从关系的，所以现在分别用两个masterdata，但是“岗位变化”需要每页都显示，这个我就不知道应该如何处理？怎么让“岗位变化”的对应masterData像pageheader那样每页都显示一样的内容？本人对fastreport不熟
...全文
请发表友善的回复…
发表回复
liangyx46 2014-02-03
- 打赏
- 举报
procedure Header2OnBeforePrint(Sender: TfrxComponent);
begin
IF <Page#><>1 then
begin
Engine.ShowBand(Header1);
MasterData1.DataSet.first;
while not MasterData1.DataSet.eof do
begin
Engine.ShowBand(MasterData1);
MasterData1.DataSet.next;
end;
end;
end;
用了上面的方法，但MasterData1只打印第一行，后面的都空白？为什么？
liangyx46 2014-01-27
- 打赏
- 举报
我就是想问怎样使第一个数据带每页都打印相同的结果~
因为第一个数据带一般只有一两条记录，而第二个数据带则比较多，所以第一个数据带在第一页打印完后第二页就不出现了~
之前试了一下在Page1OnBeforePrint事件加了一个 MasterData1.DataSet.first，但没效果~有什么方法让MasterData1每页都打印？
babydog01 2014-01-10
- 打赏
- 举报
你下面的两个可放两个主数据带。
fR支持多个数据带的。系统打印完成每一个再打印第二个。
liangyx46 2014-01-09
- 打赏
- 举报
只能打印一条主记录？但我要的是不止一条记录，而且每页都有，并且是相同的[/quote]
还是没有明白你的意思？既然所有页都相同，那这个方法就可行。[/quote]
“员工姓名”，“入职时间”用TfrxMemoView(frxReport1.FindObject('Memo13')).Memo.Text:=adoquery1.fieldbyname('姓名').asstring;这方法是没问题，
但每位员工“岗位变化”记录是有若干条的，我就是想问这个“岗位变化”怎样每页都打印一样的几条记录？
babydog01 2014-01-09
- 打赏
- 举报
用这个方法就不用主从表了。
我们称表1，表2了，表1在表2中对应多个记录。
如果要打印表1的多个记录，在delphi 中用循环改变表1表2的内容直接打印就可了。
while not adoquery1.eof do begin
adoquery2.close;
adoquery2.sql.clear;
adouqery2.sql.add('select * from 表2 where ....')
self.frxReport1.LoadFromFile('reports\统计明细表.fr3');
//这里也可以不用将表头数据关联至表1，用这个直接改变表头的值
//TfrxMemoView(frxReport1.FindObject('Memo13')).Memo.Text:=adoquery1.fieldbyname('姓名').asstring;
self.frxReport1.ShowReport;
adoquery1.next;
自己动手试一下就明白了。
end;
手写代码，大概这个意思了。
babydog01 2014-01-09
- 打赏
- 举报
只能打印一条主记录？但我要的是不止一条记录，而且每页都有，并且是相同的[/quote]
还是没有明白你的意思？既然所有页都相同，那这个方法就可行。
liangyx46 2014-01-08
- 打赏
- 举报
只能打印一条主记录？但我要的是不止一条记录，而且每页都有，并且是相同的
babydog01 2014-01-08
- 打赏
- 举报
你直接把字段拖放在页首栏中就可以了。条件是每次只能打印一条主记录，它不会向下移动记录指针。
