主题：[求助]求个时间代码

方法一： system.Threading.Thread.sleep(3000)

 

方法二：做一个计划任务，间隔定为3000毫秒，close以后，把它启用即可。

直接生成word报表是否正常？如果卡死，应该是你的Office不是完整版的，必须是完整版的才能正常生成word报表。

 做个小例子上来测试。

 看7楼

 密码错误啊。打不开啊。

例子没问题，项目肯定也没问题。

 

开发者密码不正确。

打分按钮你可以这样写。

 

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle = Nothing Then  p.kill
Next

system.Threading.Thread.sleep(3000)

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String = ProjectPath & "Attachments\周计划word个人报表.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\个人报表" & Tables("周表").Current("姓名") & " " & Tables("周表").Current("编号") & " " & Date.Today & ".doc" '指定目标文件
Dim wrt As New WordReport(Tables("周表"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Quit()
wbr.AddRess = fl

那你就加这一段

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("WinWord")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle = Nothing Then  p.kill
Next

system.Threading.Thread.sleep(3000)

 1、system.Threading.Thread.sleep(3000) ，数字可以调整；

 

 2、我测试没有卡死，不论是例子或是项目。