专家坐堂-[求助]生成WORD报表出问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dt1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim dt As Date = Tables("新工作日志").Current("日期")

Dim drs As List(of DataRow) = DataTables("新工作日志").Select("日期 = \'" & dt1.value & "\'") \'筛选出符合条件的行

If drs.Count > 0 Then \'如果存在符合条件的行

Dim tm As String = ProjectPath & "Attachments\\项目管理公司日报.doc" \'指定模板文件

Dim fl As String = ProjectPath & "项目日报\\" & Vars("xmmc") & "\\项目日报" & dt.year & format(dt.Month,"00") & format(dt.Day,"00") &".doc" \'指定目标文件

Dim wrt As New WordReport(Tables("新工作日志"),tm,fl) \'定义一个WordReport

For Each dr As DataRow In drs \'逐行生成报表

wrt.BuildOne(dr)

wrt.Show() \'显示报表

End If

按照以上的代码，点击按钮后启动WORD，然后内容自动填写到模板内生成文档，使用了一段时间没有问题，但现在出现了问题，打开窗口，点击按钮，WORD很难启动。代码也没有变，不知道这是什么问题，还请哪位大神帮忙看看！谢谢！