Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共18 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

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

1楼
1234567 发表于:2024/7/22 9:16:00
在计划管理中,代码的间隔时间设定为1小时,那么代码首次执行时间是在项目启动一小时后执行?还是项目启动后立即执行?
2楼
有点蓝 发表于:2024/7/22 9:25:00
首次执行时间是在计划管理启动一小时后执行,如果计划管理是在项目启动后马上启动,其实就等于是项目启动一小时后执行
3楼
1234567 发表于:2024/7/22 9:33:00

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

4楼
有点蓝 发表于:2024/7/22 9:52:00
把代码放到函数里,在计划管理中调用这个函数。在AfterOpenProject里也调用这个函数一次
5楼
1234567 发表于:2024/7/22 10:11:00

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

6楼
有点蓝 发表于:2024/7/22 10:16:00
增加一个表格记录执行情况,里面有一列【最后执行时间】,比如计划管理执行一次就更新一下【最后执行时间】。然后每次计划管理代码里先判断一下【最后执行时间】如果是当天就不再执行
7楼
1234567 发表于:2024/7/22 10:25:00

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

8楼
有点蓝 发表于:2024/7/22 10:27:00
建表不会?增加列不会?然后给表格某一行某一列赋值也不会?取表格某一行某一列日期值和当前时间比较也不会?
9楼
1234567 发表于: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楼
有点蓝 发表于:2024/7/22 13:30:00
要根据怎么条件查询表格数据?
共18 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.