fastreport報表合并單元格技巧

1、1Fastrept報表合并單元格技巧在做企業(yè)的ERPSCMCRM等等的軟件中經(jīng)常要做的就是報表如財務(wù)報表生產(chǎn)車間報表。很多時候企業(yè)可能對報表格式提出特別的要求，但作為軟件開發(fā)公司，能設(shè)計開發(fā)出符合客戶要求的報表就顯得十分迫切。以下我對報表的合并技巧作一個總結(jié)，希望對后面要做類似報表的同事有些幫助。合并報表1：江蘇美的春花電器股價有限公司委外加工材料月結(jié)表在沒有合并之前顯示如下：在對供應(yīng)商編碼和材料編碼進行合并后顯示如下：31MainDa

2、ta.Height：為每行數(shù)據(jù)顯示的高度，2[CLTAutepthead_AuteptlineOfAutepthead.“Flag“]：表示要合并的行數(shù)（Delphi算法），3memo7.visible：是否顯示單元格，[CLTAutepthead_AuteptlineOfAutepthead.“Search_Flag“]=2：（Delphi算法），只要在Delphi中把要合并的行數(shù)與列用字段Flag(控制行數(shù))，Search_Flag

3、（控制是否可見2為可見）算出來，再在FastRept中顯示出來，那么合并功能就算搞好。以下是在Delphi中的合并算法代碼：functionTAuteptProcessMonthFm.GetFastRptObj:TBizObjectvarBizHeadBizLine:TBizObjectijknmp:IntegerHead:TAuteptheadLine:TAuteptlineslItemVendslVends:TStringLists

4、trItemVendstrItemVend2strVend:StringVendsCount:arrayofIntegerbeginMyCheckHead:=TAutepthead.Create(falsetrue)Head.UserName:=LoginUser.UserNamefi:=1todgView.RowCount1doifdgView.RowProps[i].Checked(notdgView.IsRowEmpty(i))t

5、henbeginLine:=TAuteptline.Createself.SetDgDataToBizObject(idgViewTBizObject(line))head.AuteptlineOfAutepthead.Add(line)end合并報表算法開始addedbywbc20090423slItemVend:=TStringList.CreateslVends:=TStringList.Createfi:=0tohead.Aut

6、eptlineOfAutepthead.Count1dobeginstrItemVend:=TAuteptline(head.AuteptlineOfAutepthead.Items[i]).Item_CodeTAuteptline(head.AuteptlineOfAutepthead.Items[i]).Vend_CodeifPos(strItemVendslItemVend.Text)=0thenslItemVend.Add(st