- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]word报表提示错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62766)
-- 发布时间：2015/1/7 17:43:00
-- [求助]word报表提示错误
此主题相关图片如下：qq截图20150107174115.jpg
提示出错 这个进程如何结束呢
-- 发布时间：2015/1/7 17:45:00
--
任务管理器->进程->word 结束进程
-- 发布时间：2015/1/7 18:26:00
--
还是结束不了呢
-- 发布时间：2015/1/7 19:05:00
--
以下是引用anxue在2015-1-7 18:26:00的发言：
还是结束不了呢
那你就重启电脑看看。
-- 发布时间：2015/1/7 19:07:00
--
重启了两次，还是不行
-- 发布时间：2015/1/7 19:08:00
--
Dim flag As Boolean = False
Dim tm As String = ProjectPath & "Attachments\\汇款申请.docx" \'指定模板文件
Dim fl As String = ProjectPath & "Attachments\\汇款申请.docx" \'指定目标文件
Dim wrt As New WordReport(Tables("汇款申请单表"),tm,fl) \'定义一个WordReport
For Each r As Row In Tables("汇款申请单表").Rows
If r("打印") = True Then
flag = True
Exit For
End If
Next
For Each r As Row In Tables("汇款申请单表").Rows
If r("打印") = True Then
wrt.BuildOne(r)
End If
Next
If flag Then
wrt.Show() \'显示报表
End If