原因
示例一
常规的根据模板生成报表：
Dim tm As String = ProjectPath & "Attachments\出库单.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\出库单.doc" '指定目标文件
Dim wrt As New WordReport(Tables("出库"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表
提示，Build方法根据当前选定行生成报表。
解决方法：
1、根据添加筛选后选中所有行再输出，比如
Tables("电梯抽查").filter = "设备品种 like '曳%'"
Tables("电梯抽查").select(0,0,Tables("电梯抽查").rows.count - 1,0)
Dim tm As String = ProjectPath & "Attachments\电梯监督抽查原始记录0625.docx" '指定模板文件
Dim fl As String = ProjectPath & "Reports\电梯监督抽查原始记录0625.docx" '指定目标文件
Dim wrt As New WordReport(Tables("电梯抽查"),tm,fl) '定义一个WordReport
wrt.Build() '生成报表
wrt.Show()
加好友 
发短信
Post By：2021/7/30 8:39:00 [显示全部帖子]
