周期性新增行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2334人关注过本帖树形打印复制链接主题：周期性新增行

1234567

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：821 积分：6422 威望：0 精华：0 注册：2013/2/18 17:46:00

周期性新增行 发帖心情

Post By：2024/7/2 16:37:00 [只看该作者]

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：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

加好友

发短信

等级：四尾狐帖子：821 积分：6422 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/7/3 8:35:00 [只看该作者]

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

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：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

加好友

发短信

等级：四尾狐帖子：821 积分：6422 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/7/3 9:39:00 [只看该作者]

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

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：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

加好友

发短信

等级：四尾狐帖子：821 积分：6422 威望：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

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：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

加好友

发短信

等级：四尾狐帖子：821 积分：6422 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/7/20 14:07:00 [只看该作者]

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

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/7/20 14:10:00 [只看该作者]

请举例说明

下一主题 >> << 上一主题

总数 16 1 2 下一页

主题：周期性新增行