Foxtable(狐表)用户栏目专家坐堂 → 周期性新增行


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

主题:周期性新增行

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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望:0 精华:0 注册:2013/2/18 17:46:00
周期性新增行  发帖心情 Post By:2024/7/2 16:37:00 [只看该作者]

老师:我想在每周一早上8点的时候,在表A中新增一行,并在新增行的任务列中填入早会",求代码。

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


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

是要在打开项目的时候新增?

还是说这个电脑和项目打开后一直不关闭,然后到时间自动新增?这种到计划管理处理即可,比如
 dim d as datw = date.now
if d.DayOfWeek = 1 andalso d.hour = 8 then
dim r as row = tables("表A").addnew
r("任务")="早会"
MyTimers("计划1").Enabled = False
end if

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


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

老师:为什么需要加上计划暂停这段代码?MyTimers("计划1").Enabled=False

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


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

这要看间隔的设置了,如果间隔是1个小时以上,可以不停止。如果间隔在1个小时以内,比如10分钟,那么1个小时就有6个10分钟,不停止就会触发6次,新增6行

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


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

设置了暂停,那么到了下周一的8点,是否也会被暂停执行代码?


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


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

如果停止了计划管理,没有另外开启,并且项目一直打开没有关闭重启过。这个计划管理就不会工作了。如果项目是24小时运行不关闭的,改下代码判断

比如间隔是10分钟
if d.DayOfWeek = 1 andalso d.hour = 8 andalso d.Minute <= 10 then

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


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

每周二上午8:00-9:00或者每月21日的上午8:00-9:00,是不是这样写?

IF (d.Dayofweek = 2 AndAIso d.hour = 8 AndAIso d.Minute <=60) orEIse (d.Day = 21 AndAIso d.hour = 8 AndAIso d.Minute <= 60)  Then


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


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

还要看间隔的设置,如果间隔是1小时,【AndAIso d.Minute <=60】没有什么用处,可以去掉。

总体可以这样判断
IF (d.Dayofweek = 2 orelse d.Day = 21) AndAIso d.hour = 8  Then

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


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

如果有大量的周期性新增项目,能否按帮助说明的《可视化授权的实现》的方式,自动新增行。


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


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

请举例说明

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