主题：[求助]execl模板的序号与合并单元格

模板那里，序号、法院 列，改成变量 [!序号] [!法院]

 

编写报表事件beforeBuild

 

vars("序号") = 0

vars("法院") = ""

 

编写builddetail事件

 

if vars("序号") = 0 then

    vars("序号") = 1

    vars("法院") = e.datarow("法院")

    vars("上一行") = e.datarow

Else

    If vars("上一行")("案号") <> e.datarow("案号") Then

        vars("序号") += 1

        vars("法院") = e.datarow("法院")

        vars("上一行") = e.datarow

    End If

End If

自由合并设置成false即可

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\出庭汇总.xls")
Dim fl As String = ProjectPath & "Reports\出庭汇总.xls"
book.MergeFree = False
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

加入模板的判断，如

 

http://www.foxtable.com/webhelp/scr/1953.htm