每天定时修改表內容
定时每天9点把表a,店名列1內容对应的是否列內容改成是
定时每天19点把表a,店名列1內容对应的是否列內容改成否
节假日除外
Dim d As Date = Date.today
If d.hour = 14 AndAlso d.Minute = 57 Then
Dim drs As List(Of DataRow)
drs = DataTables("显示").Select("[企业名称] = '1店' ")
For Each dr As DataRow In drs
dr("是否显示") = “是”
Next
End If
这样没反应
把间隔设置为60000,然后每天14:57 ~14:58之间会执行一次
不行,加红色的就没反应了,Dim d As Date = Date.today
If d.hour = 15 AndAlso d.Minute = 17 Then
Dim drs As List(Of DataRow)
drs = DataTables("显示").Select("[企业名称] = '1店' ")
For Each dr As DataRow In drs
dr("是否显示") = "是"
Next
End If
肯定可以的,除非测试的时候,时间已经过了。要注意计划管理要等待一个间隔后才能执行。比间隔如设置为60000,那么计划管理启动后要等60000毫秒才开始第一次执行代码