fastreport如何合并相同的行?

jiaxianglei 2008-06-26 05:32:24

__________________________
煤矿
__________________________
| 生产单位
|________________
危险化学品| 经营单位
|________________
| 储存单位
_________________________

控件的属性SuppressRepeated设为true后,危险化学品重复的只显示一个,但表格之间仍有横线,能不能把横线去掉?
...全文
736 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
jiaxianglei 2008-06-30
  • 打赏
  • 举报
回复
不行呀,我用GroupHeader,GroupFooter,中间是DetailData
怎么不行?
jiaxianglei 2008-06-30
  • 打赏
  • 举报
回复
好了,搞定,谢谢楼上
lpq213140808 2008-06-30
  • 打赏
  • 举报
回复
拜托,中间是MasterData
lpq213140808 2008-06-27
  • 打赏
  • 举报
回复
预览效果:


lpq213140808 2008-06-27
  • 打赏
  • 举报
回复
给你看两个图片就明白了:

lpq213140808 2008-06-27
  • 打赏
  • 举报
回复
在这里你可以使用一个小技巧,要使用分组头和分组尾,在分组头和分组尾各加上一个线条,然后
把要隐藏重复值的编辑框的线框全部去掉,在此编辑框的底部再加一个空白的只有左右线框的编辑框,
如下图所示:


注意,隐藏框的下面还有一个空白的编辑框哦,如下图:
jiaxianglei 2008-06-27
  • 打赏
  • 举报
回复
怎么没人回答呀
:首先是要分组,因为如果不分组,想合并的列与其它列会自动打印。这样,只能使用FR自带的隐藏重复数据的功能,但很多类似报表都是要求合并居中的,这点FR就不能自动实现了。 2:要全并的列放在分组脚中,其它放在分组数据BAND中,这样,打印完分组数据BAND后,动态改变分组脚中要合并列的TOP和HEIGHT就可以了。而且这样打印,因为要合并实际上只打印了一遍,因此应该效率更高。所以这就需要在打印分组数据BAND后有一个可记录此分组已打印高度的功能。 3:代码解释 procedure MCOnAfterData(Sender: TfrxComponent); begin if =1 then MC.Tag:=Int(MC.Height) else MC.Tag:=MC.Tag+Int(MC.Height); end; 因为FR的在每次分组后重新计数,使用MC.Tag保存现在数据BAND上的所有不合并的总高度。当然也可以使用一个变量,但放着这么多TAG不用,多浪费呀。况且使用TAG的语法也比使用变量简单,使用变量使程序看上去很难懂。 if >=1 then 这样的写法看起来多痛苦呀。 procedure MBBOnAfterData(Sender: TfrxComponent); begin MBB.Tag:=GetStandHeight(MBB.CalcHeight); //这一句是为了保持高的一致性,如果不需要直接 MBB.Tag:=MBB.CalcHeight; //这样可能计算的高不是标准高的整数倍。 MBB.Visible:=False; end; procedure MD1OnBeforePrint(Sender: TfrxComponent); begin if =1 then MBB.Visible:=True; end; 上二句只是为了不多次统计CalcHeight,但不能直接设可视性为假,否则不会触发MBBOnAfterData事件。 计算此例中可能会很高的列的计算高度,这是在宽度已经确定的情况下计算的。 因为此例中的第二列单高度可能大于其它列的总高度。如果没有此例中的特殊情况,可以省略。 4:如果此例中没有第二列单高度可能大于其它列的总高度的话,MBB是不需要的。 5:如果不是要求空为多多列显示的话,GFOnBeforePrint也是不需要的,只需要在GF上放二个MEMOVIEW,宽高和左边距分别与上方的二个相同,调用我例子中注释掉的代码改变它们的TOP和HEIGHT即可。 6:TAG是所有Tcomponent的属性呀,这是我最常使用的一个属性。

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧