示例一
如果你希望每5分钟自动保存一次数据,可以增加一个计划,计划的执行间隔为300000(毫秒),也就是5分钟,计划的代码设为:
For Each dt As DataTable In DataTables dt.Save()Next
示例二
假定希望系统每十分钟自动备份一次项目,可以增加一个计划,计划的执行间隔600000(毫秒),也就是10分钟,计划的代码为:
Static dt As Date '静态变量,用于保存上次备份的时间Dim tp As TimeSpantp = Date.Now - dtIf tp.TotalHours >= 1 Then '如果距离上次备份已经超过一个小时 dt = Date.Now Syscmd.Project.Backup("c:\data", True) '自动备份到c:\data目录End If