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

e.Form.Close

Forms("打分").open

我想在这两行代码中间加个时间按钮，比如3秒后执行Forms("打分").open，求代码

[此贴子已经被作者于2016/3/1 9:28:26编辑过]

上个窗体是word报表，这两条代码，一用直接foxtable卡死，并且进程里面有winword.EXE没自动关闭，如果不要第二条代码，又一切正常。。。。

以下是引用大红袍在2016/2/29 11:36:00的发言：

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

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

用了没效果。。。word报表窗体用了webs。。那个空间进行显示报表，这2个代码加上等待3秒，还是卡死。。。奇怪。。。

以下是引用大红袍在2016/2/29 11:41:00的发言：
直接生成word报表是否正常？如果卡死，应该是你的Office不是完整版的，必须是完整版的才能正常生成word报表。

正常的word和pdf浏览都没问题，也能按照我想要的生成文件然后在webs。。控件中进行浏览。

但是浏览之后想关闭这个浏览窗体，再打开另外一个窗体，结果就死活不行，但是PDF浏览窗口可以。。。。

我想不明白，为什么直接关闭word浏览的窗口e.from.close就能正常。。。。

以下是引用大红袍在2016/2/29 11:44:00的发言：
做个小例子上来测试。

为何我做个小例子就可以，我自己编周计划就不行？难道是我要打开的窗体控件太多？

以下是引用大红袍在2016/2/29 11:46:00的发言：
看7楼

下载信息 [文件大小：下载次数： ]
点击浏览该文件:例子就可以.zip

下面是我做的，数据库文件在包里，重新定下项目，密码5201314

下载信息 [文件大小：下载次数： ]
点击浏览该文件:远海oa.zip

在word浏览里面，有个打分，一点就卡死。。。。

以下是引用大红袍在2016/2/29 14:15:00的发言：

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

开发者密码不正确。

开发者密码888啊？

刘京的密码 5201314 进入后可以在权限里面找到个进入系统，就可以直接进后台了。。。。

以下是引用大红袍在2016/2/29 15:33:00的发言：

打分按钮你可以这样写。

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

不对啊上半段代码是指杀死进程 word进程嘛，中间是等待3秒，下面明明是打开浏览窗口的代码啊？跳转到打分窗体的代码那去了？

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