Foxtable(狐表)用户栏目专家坐堂 → 如何按“定时表”的设定时间执行?


  共有2911人关注过本帖树形打印复制链接

主题:如何按“定时表”的设定时间执行?

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/9 15:44:00 [显示全部帖子]

这个时间设置太随意,想了一下,我也做不了

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/10 12:09:00 [显示全部帖子]

到窗口计时器处理,计时间隔设置为1小时,即1000*60*60。

然后计时器事件判断当天是否25号0时,如果是,则执行按钮事件:http://www.foxtable.com/webhelp/topics/2309.htm


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/10 15:07:00 [显示全部帖子]

1、没有启用:http://www.foxtable.com/webhelp/topics/1301.htm
2、没看到有任何和计时日期判断有关的代码:http://www.foxtable.com/webhelp/topics/1322.htm

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/10 22:40:00 [显示全部帖子]

if Date.Today.day = 25 andalso Date.now.Hour = 0 then
Dim btn As WinForm.Button = Forms("表A定时操作").Controls("Button2")
btn.PerformClick()
end if

到每个窗口的计时器写代码处理自己的业务,不要在A窗口计时器处理其它窗口

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/11 10:20:00 [显示全部帖子]

1、8楼的代码是指定25日0时执行一次代码。如果不是0时是不执行的,其它事件测试可以改,比如中午12时:if Date.Today.day = 25 andalso Date.now.Hour = 12 then

2、由于时间间隔是一个固定的值,而每个月份的天数不定,启动服务的时间也无法确定,没有办法直接设置间隔为25天。只能是设定一个比较小的时间间隔内进行判断,8楼的代码虽然每1小时就判断一次时间,但是按钮肯定只会执行一次,因为1小时的间隔内0时只可能出现一次

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/11 14:11:00 [显示全部帖子]

间隔3600000(1小时)也就是打开窗口后,每过1小时才会触发事件执行代码!现在都14点了,今天还会有11点么?

如果要想快速测试计时器代码,一般把间隔缩小,比如5分钟,1分钟......

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/11 16:09:00 [显示全部帖子]

我测试没有问题

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/11 16:55:00 [显示全部帖子]

我测试没有任何问题,把间隔改为5秒,每5秒就会新增一行

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


 回到顶部