社区
Delphi
帖子详情
fastreport能否合并重复单元格?
kotorcjw
2007-07-27 05:11:56
fastreport能不能合并重复单元格?就是报表有很多条记录,这些记录有一个字段是一样的,能不能像reportmachine那样,将重复的单元格合并成一个?虽然可以设置不打印重复值,但是还是会显示空白的单元格……
...全文
848
2
打赏
收藏
fastreport能否合并重复单元格?
fastreport能不能合并重复单元格?就是报表有很多条记录,这些记录有一个字段是一样的,能不能像reportmachine那样,将重复的单元格合并成一个?虽然可以设置不打印重复值,但是还是会显示空白的单元格……
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
cuiyue4420
2007-11-29
打赏
举报
回复
将重复的删除,格式设置为没有边框就行了
kotorcjw
2007-07-30
打赏
举报
回复
顶上去,难道用fastreport的人不多么?怎么没人回答啊
Fast
Report
数据
单元格
格纵向横向
合并
功能实现
支持记录集多记录纵向
单元格
同内容
合并
以及列
合并
;修改单元frxEngine.pas,frxClass.pas , Xe3验证可用,内附样式文档
Fast
Report
合并
相应行代码.rar
:首先是要分组,因为如果不分组,想
合并
的列与其它列会自动打印。这样,只能使用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的属性呀,这是我最常使用的一个属性。
动态向下
合并
单元格
压缩文件中包含四个文件,两个是vo,一个是action,一个是页面上的展示。大家可以根据action和页面实现
单元格
的向下
合并
功能
Fast
Report
.rar
Fast
report
跨行同值
合并
,可根据任意列值判断是否
合并
。直接点击第一个“打印”按钮即可。Designer按钮可直接打开相应的报表设计。
Fast
Report
单元格
合并
之横向
合并
Fast
Report
纵向
合并
请点击这里
Delphi
5,927
社区成员
262,932
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章