计划代码如下 计划名称:upyc 间隔时间:30000
If Date.Today.DayOfWeek > 0 AndAlso Format(Date.now, "HHmm") >= 1130 AndAlso Format(Date.now, "HHmm") <= 1300 Then
MyTimers("upyc").Enabled = False
DataTables("pos").load()
Dim d As Date = Date.Today
Dim unn As String = Functions.Execute("ycun",d,"unn")
Dim dr As DataRow = DataTables("yc").find("date = '" & d & "'")
If dr IsNot Nothing Then
dr("n_y") = unn
dr.save
End If
MyTimers("upyc").Enabled = True
End If
为什么有时候不执行 必须重启一下才行