fast report 报表列中跨行合并功能解决办法

hw 11:30:44
public class ReportScript
  {
    int rowIndex = 0;
    int rowCountPerPage = 18;
    Dictionary<int,int> _dic = new Dictionary<int,int>(); 

    private void Page1_StartPage(object sender, EventArgs e)
    {
      int index = 0;  
      int leftRow = 0;
      int rowCount = 0;
      List<string> xhs = new List<string>();
      
      int dks = 0;
      decimal htzmj = 0m;
      decimal sczmj = 0m;
      
      DataSourceBase dk = Report.GetDataSource("tableDK");             
      DataTable dkTable = ((FastReport.Data.TableDataSource)(dk)).Table;
      foreach(DataRow row in dkTable.Rows)
      {                          
        string xh = row["XH"].ToString();
        int count = dkTable.Select("XH = '"+xh+"'").Length;
        if(!xhs.Contains(xh))
        {
          xhs.Add(xh);
          leftRow = rowCountPerPage - index%rowCountPerPage;
          rowCount = count > leftRow ? leftRow : count;
                                     
          Int32.TryParse(row["DKS"].ToString(),out dks);
          Decimal.TryParse(row["HTZMJ"].ToString(),out htzmj);
          Decimal.TryParse(row["SCZMJ"].ToString(),out sczmj);
        }
        else
        {
          if(index%rowCountPerPage == 0)
          {
            if(count-leftRow > rowCountPerPage)
            {
              rowCount = rowCountPerPage;
              leftRow += rowCountPerPage;
            }
            else
              rowCount = count-leftRow;
          }
          else
            rowCount = 0;
          
          row["DKS"] = dks;
          row["HTZMJ"] = htzmj;
          row["SCZMJ"] = sczmj;
        }
         
        index++;       
        if(!_dic.ContainsKey(index)) 
          _dic.Add(index,rowCount);                
      }
    }

    private void Data1_BeforePrint(object sender, EventArgs e)
    {
      rowIndex++;
      float h = Data1.Height;
      if(_dic.ContainsKey(rowIndex))
      {
        if(_dic[rowIndex]>0)
        {
          Text19.Height = Text20.Height = Text43.Height = _dic[rowIndex]*h;
          Text19.Visible = Text20.Visible = Text43.Visible = true;          
        }                                                  
        else
        {
          Text19.Visible = Text20.Visible = Text43.Visible = false;
        }
      }                 
    }    
  }

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值