以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  计划管理的首次执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192778)
--  作者：1234567
--  发布时间：2024/7/22 9:16:00
--  计划管理的首次执行
在计划管理中，代码的间隔时间设定为1小时，那么代码首次执行时间是在项目启动一小时后执行？还是项目启动后立即执行？
--  作者：有点蓝
--  发布时间：2024/7/22 9:25:00
--  
首次执行时间是在计划管理启动一小时后执行，如果计划管理是在项目启动后马上启动，其实就等于是项目启动一小时后执行
--  作者：1234567
--  发布时间：2024/7/22 9:33:00
--  

如果希望项目启动后先执行一次，然后按设定间隔执行，改如何操作？
--  作者：有点蓝
--  发布时间：2024/7/22 9:52:00
--  
把代码放到函数里，在计划管理中调用这个函数。在AfterOpenProject里也调用这个函数一次
--  作者：1234567
--  发布时间：2024/7/22 10:11:00
--  

如果希望某个代码一天只执行一次，不管当天项目重复启动多少次，代码只执行一次，是否可以实现？
--  作者：有点蓝
--  发布时间：2024/7/22 10:16:00
--  
增加一个表格记录执行情况，里面有一列【最后执行时间】，比如计划管理执行一次就更新一下【最后执行时间】。然后每次计划管理代码里先判断一下【最后执行时间】如果是当天就不再执行
--  作者：1234567
--  发布时间：2024/7/22 10:25:00
--  

蓝版，帮我做个实例吧，谢谢
--  作者：有点蓝
--  发布时间：2024/7/22 10:27:00
--  
建表不会？增加列不会？然后给表格某一行某一列赋值也不会？取表格某一行某一列日期值和当前时间比较也不会？
--  作者：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

 

蓝版，哪里错了？
--  作者：有点蓝
--  发布时间：2024/7/22 13:30:00
--  
要根据怎么条件查询表格数据？