fastreport報(bào)表合并單元格技巧

1、1Fastrept報(bào)表合并單元格技巧在做企業(yè)的ERPSCMCRM等等的軟件中經(jīng)常要做的就是報(bào)表如財(cái)務(wù)報(bào)表生產(chǎn)車(chē)間報(bào)表。很多時(shí)候企業(yè)可能對(duì)報(bào)表格式提出特別的要求，但作為軟件開(kāi)發(fā)公司，能設(shè)計(jì)開(kāi)發(fā)出符合客戶(hù)要求的報(bào)表就顯得十分迫切。以下我對(duì)報(bào)表的合并技巧作一個(gè)總結(jié)，希望對(duì)后面要做類(lèi)似報(bào)表的同事有些幫助。合并報(bào)表1：江蘇美的春花電器股價(jià)有限公司委外加工材料月結(jié)表在沒(méi)有合并之前顯示如下：在對(duì)供應(yīng)商編碼和材料編碼進(jìn)行合并后顯示如下：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、（控制是否可見(jiàn)2為可見(jiàn)）算出來(lái)，再在FastRept中顯示出來(lái)，那么合并功能就算搞好。以下是在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合并報(bào)表算法開(kāi)始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