以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]timetick 问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137241)
--  作者：81538475
--  发布时间：2019/7/1 16:06:00
--  [求助]timetick 问题
能否让 timetick 在发生错误弹窗后，就自动停止，并关闭弹窗呢。
--  作者：有点甜
--  发布时间：2019/7/1 16:10:00
--  

1、加入try catch代码，然后设置enabled等于false

 

http://www.foxtable.com/webhelp/topics/2070.htm

 

http://www.foxtable.com/webhelp/topics/1322.htm

 

2、可以用BeforeShowErrorMessage

 

http://www.foxtable.com/webhelp/topics/2655.htm

 
--  作者：81538475
--  发布时间：2019/7/1 17:08:00
--  
If e.Event = "timetick" Then
forms("抬头").TimerEnabled = False
e.Cancel =True
End If
是这个意思码
因为这个报错还没有找到具体的原因，每次打开都是随机报错于不报错。在这种情况下不知道这样写有没有问题。
--  作者：有点甜
--  发布时间：2019/7/1 17:14:00
--  

在 timertick 事件，写代码

 

vars("出错") = true

 

.....................

 

vars("出错") = false

 

在 BeforeShowErrorMessage 事件

 

If vars("出错") = true Then

    forms("抬头").TimerEnabled = False

    e.Cancel =True
    vars("出错") = false

End If