急，FastReport 合并相同行后如何去掉行间线！！！

lantianhf03 2013-04-02 09:58:44

FastReport 合并相同行后如何去掉行间线，问题困扰很久一直没解决，用的是fastreport4.7.109,delphi7开发，请问应如何解决，或者其它Fastreport版本能否支持不显示行间线，请做过的高手指点！！

...全文

352 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

jiyugang0329 2015-05-02

打赏
举报

不行的。。还是用finereport吧，这个可以分分钟搞定。

lantianhf03 2013-04-03

打赏
举报

RM支持合并吗，哪个版本啊?

babydog01 2013-04-03

打赏
举报

不用想了，FR不支持合并单元格的，必须手工代码，很麻烦。RM支持合并，操作基本都一样。

：首先是要分组，因为如果不分组，想合并的列与其它列会自动打印。这样，只能使用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的属性呀，这是我最常使用的一个属性。

支持记录集多记录纵向单元格同内容合并以及列合并；修改单元frxEngine.pas，frxClass.pas ， Xe3验证可用，内附样式文档

FastReport VCL向下合并单元格，从网上的代码修改而来，FastReport 5.X亲测可用。

fastreport，功能虽然蛮强大，但是还是有些美中不足，例如向下合并单元格，要达到如下效果(这是改动之后的成果), 原版的功能SUpreess似乎还是不能满足我们孜孜不倦的追求解压后替换原版frxClass ，frxEngine 然后重新编译 dclfrx14.Dpk,frx14.Dpk即可使用

修正了frmemo中中文折行的问题（注：不要设置wordbreak属性）。

Delphi

5,930

社区成员

262,936

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章