Foxtable(狐表)用户栏目专家坐堂 → 计划管理的首次执行


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

主题:计划管理的首次执行

帅哥哟,离线,有人找我吗?
1234567
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6422 威望:0 精华:0 注册:2013/2/18 17:46:00
计划管理的首次执行  发帖心情 Post By:2024/7/22 9:16:00 [只看该作者]

在计划管理中,代码的间隔时间设定为1小时,那么代码首次执行时间是在项目启动一小时后执行?还是项目启动后立即执行?

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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/22 9:25:00 [只看该作者]

首次执行时间是在计划管理启动一小时后执行,如果计划管理是在项目启动后马上启动,其实就等于是项目启动一小时后执行

 回到顶部
帅哥哟,离线,有人找我吗?
1234567
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6422 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2024/7/22 9:33:00 [只看该作者]

如果希望项目启动后先执行一次,然后按设定间隔执行,改如何操作?


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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/22 9:52:00 [只看该作者]

把代码放到函数里,在计划管理中调用这个函数。在AfterOpenProject里也调用这个函数一次

 回到顶部
帅哥哟,离线,有人找我吗?
1234567
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6422 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2024/7/22 10:11:00 [只看该作者]

如果希望某个代码一天只执行一次,不管当天项目重复启动多少次,代码只执行一次,是否可以实现?


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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/22 10:16:00 [只看该作者]

增加一个表格记录执行情况,里面有一列【最后执行时间】,比如计划管理执行一次就更新一下【最后执行时间】。然后每次计划管理代码里先判断一下【最后执行时间】如果是当天就不再执行

 回到顶部
帅哥哟,离线,有人找我吗?
1234567
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6422 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2024/7/22 10:25:00 [只看该作者]

蓝版,帮我做个实例吧,谢谢


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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/22 10:27:00 [只看该作者]

建表不会?增加列不会?然后给表格某一行某一列赋值也不会?取表格某一行某一列日期值和当前时间比较也不会?

 回到顶部
帅哥哟,离线,有人找我吗?
1234567
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6422 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2024/7/22 12:38:00 [只看该作者]

Dim dr1 As DataRow
With DataTables("周期性任务登记记录")
    dr1 = .Find(" [_Locked]  Is Not Null", "代码执行时间 Desc")  '取最后执行时间
End With
If dr1("代码执行时间") <> Today Then '如果最后执行时间不是今天
    Dim r11 As Row = Tables("周期性任务登记记录").AddNew
    r11("代码执行时间") = Today 
End If

 

蓝版,哪里错了?


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


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/22 13:30:00 [只看该作者]

要根据怎么条件查询表格数据?

 回到顶部
总数 18 1 2 下一页