创建一个窗口，窗口设置一个按钮，代码是：
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)
Next
wrt.Show() '显示报表
End If
按照以上的代码，点击按钮后启动WORD，然后内容自动填写到模板内生成文档，使用了一段时间没有问题，但现在出现了问题，打开窗口，点击按钮，WORD很难启动。代码也没有变，不知道这是什么问题，还请哪位大神帮忙看看！谢谢！
加好友 
发短信
Post By：2017/8/22 16:11:00 [显示全部帖子]
