以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  LastInputTickCount是否能用在计划管理中！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33375)
--  作者：xietan417
--  发布时间：2013/5/16 21:46:00
--  LastInputTickCount是否能用在计划管理中！

LastInputTickCount是否一定要用在

SystemIdle中呢？可以可以用在计划管理中？
--  作者：fjlclxj
--  发布时间：2013/5/16 21:50:00
--  
应该是可以，它仅仅是个变量
--  作者：xietan417
--  发布时间：2013/5/16 22:29:00
--  

Dim Filter As String
If Forms("工作流窗口").Opened = True AndAlso LastInputTickCount > 600000 Then
Forms("工作流窗口").Close()
ElseIf Forms("工作流窗口").Opened = False AndAlso Forms("开单者").Opened =False AndAlso LastInputTickCount > 600000 Then
Filter = "[送货完成状态] Is Null"
DataTables("mgwork").LoadFilter = Filter
DataTables("mgwork").Load()
Tables("mgwork").Sort = "_Identify DESC"
End If

我做了一个刷新的代码，如果放到计划管理中去的话，怎么能做到，在系统空闲600000毫秒后只刷新一次，而不是不断刷新呢？
--  作者：夕然
--  发布时间：2013/5/16 23:04:00
--  

Dim t As New TimeSpan(0,0,0,60,0) \'间隔时间为60秒

Dim Seconds As Double = t.TotalMilliseconds

Dim d As Double = Tick()

If d>= Seconds Then 

    MyTimers("计划1").Enabled = False \'暂停计划1

   “”刷新代码 

End If
--  作者：狐狸爸爸
--  发布时间：2013/5/17 7:47:00
--  
你做个计划，执行间隔设置为600秒不就行了吗？
--  作者：夕然
--  发布时间：2013/5/17 9:07:00
--  
楼主的意思是执行一次后就不再执行，不然老间隔600秒就刷新，麻烦，