- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 这个错误是什么原因？能否改正？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83616)
-- 发布时间：2016/4/13 10:59:00
-- 这个错误是什么原因？能否改正？
Try
Dim s1 As String =args(0)\'替换文本
Dim s2 As String =args(1)\'替换内容1
Dim s3 As String = args(2) \'替换图片
Dim tm As String = ProjectPath & "Attachments\\xgx.doc" \'指定模板文件
Dim fl As String = ProjectPath & "相关性图\\xgx" & s3 & ".doc" \'指定目标文件
Dim wrt As New WordReport(Tables("xgb"),tm,fl) \'定义一个WordReport fxygx" & Vars("_xz7") & ".wmf")\'
wrt.replace("[文本]",s1)
wrt.replace("[内容1]",s2)
wrt.ReplaceWithImage("[&&xgx.wmf,400,300]",ProjectPath & "相关性图\\fxygx" & s3 & ".wmf",400,300) \'
wrt.Build()
wrt.quit \'退出报表
Catch ex As Exception
messagebox.show("程序异常错误,可能进程中存在已打开的word程序,请关闭后再运行!")
End Try
多次调用这个函数，执行几次后就会出现错误，如果在任务管理器的进程中关闭了word程序，可以继续调用这个函数再执行。关闭word进程后，有下面的提示错误，如何改代码才好？
此主题相关图片如下：qq图片20160413105159.png
[此贴子已经被作者于2016/4/13 11:23:32编辑过]
-- 发布时间：2016/4/13 11:40:00
--
看看http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=81338
-- 发布时间：2016/4/13 16:41:00
--
多次调用这个函数，执行几次后就会出现错误? 重点是多次调用程序卡住，也没有任何提示，只有在进程中关闭word后才再运行，也就是说，生成报表后，并没有保证一定退出报表，或者说程序运行中有时报表能退出，有时不能退出。
-- 发布时间：2016/4/13 16:48:00
--
试试
Dim s1 As String =args(0)\'替换文本
Dim s2 As String =args(1)\'替换内容1
Dim s3 As String = args(2) \'替换图片
Dim tm As String = ProjectPath & "Attachments\\xgx.doc" \'指定模板文件
Dim fl As String = ProjectPath & "相关性图\\xgx" & s3 & ".doc" \'指定目标文件
Dim wrt As New WordReport(Tables("xgb"),tm,fl) \'定义一个WordReport fxygx" & Vars("_xz7") & ".wmf")\'
Try
wrt.replace("[文本]",s1)
wrt.replace("[内容1]",s2)
wrt.ReplaceWithImage("[&&xgx.wmf,400,300]",ProjectPath & "相关性图\\fxygx" & s3 & ".wmf",400,300) \'
wrt.Build()
wrt.quit \'退出报表
Catch ex As Exception
wrt.quit
messagebox.show("程序异常错误,可能进程中存在已打开的word程序,请关闭后再运行!")
End Try
-- 发布时间：2016/4/13 16:58:00
--
已试过，还是不行，看看下图，想想还有没有办法解决？
此主题相关图片如下：qq图片20160413165601.png
-- 发布时间：2016/4/13 16:59:00
--
上传实例测试。
-- 发布时间：2016/4/13 17:01:00
--
1、如果你一个word报表都不能生成，说明是office的问题，你要安装完整版的；
2、如果是多次执行才报错，上传实例测试
-- 发布时间：2016/4/14 22:55:00
--
经多次测试，word报表不是一次都不能生成，而是生成后，word文件出现另存为对话框，不能自动退出然后程序卡住，只有点击取消才能退出，然后可以继续程序，一般来说，调用这个函数20次，就可能在其中出玩一两次错，请分析原因。
-- 发布时间：2016/4/14 23:21:00
--
做个例子上来测试。