有两个word报表模板：一审延长审理期限报告.doc；二审延长审理期限报告.doc
当[审判程序] = "一审"时，用一审延长审理期限报告.doc模板；
当[审判程序] = "二审"时，用二审延长审理期限报告.doc模板；
下面的第二、第三段代码其实就第一句的模板不同。
希望合并为一个按钮代码，尝试很长时间也没能合并成功，请老师指教，谢谢！
--------------------------------------
代码如下：
1、第一段代码；
For Each r As Row In Tables("应诉通知书_table1")
If r"审判程序")= "一审" Then
......
ElseIf If r"审判程序")= "二审" Then
......
End If
Next
2、第二段代码：
Dim tm As String = ProjectPath & "Attachments\一审延长审理期限报告.doc" '指定模板文件
With Tables("应诉通知书_table1")
If .TopPosition > -1 Then '如果选定区域包括数据行
Dim fileName As String = ProjectPath & "Reports\延长审理期限报告\预览.doc" '指定目标文件
Dim wrt As New WordReport(Tables("应诉通知书_table1"),tm,fileName) '定义一个WordReport
For Each r As Row In .GetCheckedRows '复选框选中
wrt.BuildOne(r)
wrt.RecordsOnEachPage =1
Next
wrt.Show() '显示报表
End If
End With
3、第三段代码：
Dim tm As String = ProjectPath & "Attachments\二审延长审理期限报告.doc" '指定模板文件
With Tables("应诉通知书_table1")
If .TopPosition > -1 Then '如果选定区域包括数据行
Dim fileName As String = ProjectPath & "Reports\延长审理期限报告\预览.doc" '指定目标文件
Dim wrt As New WordReport(Tables("应诉通知书_table1"),tm,fileName) '定义一个WordReport
For Each r As Row In .GetCheckedRows '复选框选中
wrt.BuildOne(r)
wrt.RecordsOnEachPage =1
Next
wrt.Show() '显示报表
End If
End With
加好友 
发短信
Post By：2018/5/11 22:40:00 [显示全部帖子]
此主题相关图片如下：image 2.jpg