单独做一个表记录要运行的日期。打开窗口的时候,判断今天是否在那个表里面,如果不在,就关闭计时器。
Dim fdr As DataRow = DataTables("运行日期").Find("日期 = #" & Date.Today & "#")
If fdr Is Nothing Then
msgbox("不需要运行")
Else
msgbox("需要运行")
End If