这个错误是什么原因？能否改正？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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编辑过]

多次调用这个函数，执行几次后就会出现错误? 重点是多次调用程序卡住，也没有任何提示，只有在进程中关闭word后才再运行，也就是说，生成报表后，并没有保证一定退出报表，或者说程序运行中有时报表能退出，有时不能退出。

已试过，还是不行，看看下图，想想还有没有办法解决？

此主题相关图片如下：qq图片20160413165601.png

经多次测试，word报表不是一次都不能生成，而是生成后，word文件出现另存为对话框，不能自动退出然后程序卡住，只有点击取消才能退出，然后可以继续程序，一般来说，调用这个函数20次，就可能在其中出玩一两次错，请分析原因。

主题：这个错误是什么原因？能否改正？