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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子就可以.zip

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

以下是引用大红袍在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秒，下面明明是打开浏览窗口的代码啊？ 跳转到打分窗体的代码那去了？

以下是引用大红袍在2016/3/1 10:03: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)

这段代码最后加了个打分窗体打开的代码，结果测试，卡机3秒后，还在word浏览界面，算了，不用打分按钮了，就算没问题也太慢了。。