[求助]合并代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

比如1、3、5行是一审，然后这几行就输出到一审报告，2、4、6行是二审，然后这几行就输出到二审报告？

Dim tm As String = ProjectPath & "Attachments\一审延长审理期限报告.doc" '指定模板文件

Dim tm2 As String = ProjectPath & "Attachments\二审延长审理期限报告.doc" '指定模板文件

Dim fileName As String = ProjectPath & "Reports\延长审理期限报告\预览.doc" '指定目标文件

Dim fileName2 As String = ProjectPath & "Reports\延长审理期限报告\预览2.doc" '指定目标文件

Dim wrt As New WordReport(Tables("应诉通知书_table1"),tm,fileName) '定义一个WordReport

Dim wrt2 As New WordReport(Tables("应诉通知书_table1"),tm2,fileName2) '定义一个WordReport

wrt.RecordsOnEachPage =1

wrt2.RecordsOnEachPage =1

With Tables("应诉通知书_table1")

For Each r As Row In Tables("应诉通知书_table1")

If r"审判程序")= "一审" Then

wrt.BuildOne(r)

ElseIf If r"审判程序")= "二审" Then

wrt2.BuildOne(r)

End If

End With

wrt.Show()

wrt2.Show()

[此贴子已经被作者于2018/5/12 8:41:16编辑过]

不能合并：

Dim tm As String = ProjectPath & "Attachments\一审延长审理期限报告.doc" '指定模板文件

With Tables("应诉通知书_table1")

Dim fileName As String = ProjectPath & "Reports\延长审理期限报告\预览.doc" '指定目标文件

Dim wrt As New WordReport(Tables("应诉通知书_table1"),tm,fileName) '定义一个WordReport

wrt.RecordsOnEachPage =1

For Each r As Row In .GetCheckedRows '复选框选中

If r("审判程序")= "一审"

wrt.BuildOne(r)

End If

wrt.Quit() '显示报表

End With

tm = ProjectPath & "Attachments\二审延长审理期限报告.doc" '指定模板文件

With Tables("应诉通知书_table1")

Dim fileName As String = ProjectPath & "Reports\延长审理期限报告\预览2.doc" '指定目标文件

Dim wrt As New WordReport(Tables("应诉通知书_table1"),tm,fileName) '定义一个WordReport

wrt.RecordsOnEachPage =1

For Each r As Row In .GetCheckedRows '复选框选中

If r("审判程序")= "二审"

wrt.BuildOne(r)

End If

wrt.Show() '显示报表

End With

主题：[求助]合并代码