没有打开项目能执行到期后事件执行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

需求是：如何实现每月底对表A的所有数据记录进行审核，也就是“审核”为“是”，不为空？

场景一：到期后没有打开项目能否执行事件审核执行？如果可以，怎样实现？如果不能实现，有替代的方法？如何实现？

之所以，考虑没打开项目能执行，是因为下面原因：

1，正常上班时间，大家都会打开项目，但放假，比如5.1或国庆节放假或其他原因，企业恰好在月底这一天没上班，那这个

每月月底执行审核的事件就没能执行，过了这时间又不会执行，就无法满足需求功能。

2，或许说加上判断语句，每天判断审核情况，这个影响性能每天判断，还会表A的审核字段平时是允许为空，只有在每月月底才执行审核。

如何实现需求。

MyTimers

利用MyTimers集合，可以获得指定名称的计划，例如：

MyTimers("计划1")

计划的属性有：

Interval：执行间隔，单位为毫秒。
Enabled: 是否执行，设为False，暂停执行该计划。

例如：

MyTimers("计划1").Enabled = False '暂停计划1
MyTimers("计划2").Interval = 4000 '计划2的执行间隔改为4秒

项目和程序必须一直运行，才能执行里面的代码。

可以发布一个程序放到服务器24小时开着

也可以在afteropenproject事件写代码处理一下，这主要每次打开项目都会执行一次

老师，有想法，就是写一个计划

如果能正常在每月月底启用审核计划，进行审核，执行审核后，暂停审核计划，等下一月启动？

否则，不能或没有正常在每月月底启用审核计划，进行审核，就执行向下个一月延15天进行检测，在期间，在哪天启用审核计划，进行审核，就在哪天

执行审核后，暂停审核计划，等下一月启动。

这个代码，如何实现？

把计划管理间隔设置为3600000（一小时）

计时代码

dim d as date = date.today

If d.day = 1 AndAlso d.Hour = 0 then

进行审核的代码

end if

发布程序放到服务器24小时运行

主题：没有打开项目能执行到期后事件执行？