以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  每天定时修改表內容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193426)

--  作者:qazlinle6
--  发布时间:2024/9/12 14:29:00
--  每天定时修改表內容
每天定时修改表內容


定时每天9点把表a,店名列1內容对应的是否列內容改成是
定时每天19点把表a,店名列1內容对应的是否列內容改成否
节假日除外



--  作者:有点蓝
--  发布时间:2024/9/12 14:38:00
--  
到计划管理处理:http://www.foxtable.com/webhelp/topics/0657.htm
--  作者:qazlinle6
--  发布时间:2024/9/12 15:00:00
--  
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


这样没反应

--  作者:有点蓝
--  发布时间:2024/9/12 15:14:00
--  
把间隔设置为60000,然后每天14:57 ~14:58之间会执行一次
--  作者:qazlinle6
--  发布时间:2024/9/12 15:21:00
--  
不行,加红色的就没反应了,
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

--  作者:有点蓝
--  发布时间:2024/9/12 17:12:00
--  
肯定可以的,除非测试的时候,时间已经过了。要注意计划管理要等待一个间隔后才能执行。比间隔如设置为60000,那么计划管理启动后要等60000毫秒才开始第一次执行代码