【文件属性】：
文件名称：FastReport合并相应行代码.rar
文件大小：562KB
文件格式：RAR
更新时间：2013-03-16 08:44:04
FastReport 合并 代码
：首先是要分组，因为如果不分组，想合并的列与其它列会自动打印。这样，只能使用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的属性呀，这是我最常使用的一个属性。
【文件预览】：
FastReport合并相应行代码
----Project1.exe(1.43MB)
----Unit1.dfm(11KB)
----Project1.dpr(188B)
----Unit1.pas(909B)
----jade.fr3(7KB)
----Data.mdb(164KB)
