时间问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间问题

共有4587人关注过本帖树形打印复制链接主题：时间问题

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/2 14:40:00 [显示全部帖子]

单独做一个表记录要运行的日期。打开窗口的时候，判断今天是否在那个表里面，如果不在，就关闭计时器。

Dim fdr As DataRow = DataTables("运行日期").Find("日期 = #" & Date.Today & "#")

If fdr Is Nothing Then

msgbox("不需要运行")

Else

msgbox("需要运行")

End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/2 14:53:00 [显示全部帖子]

上传具体例子。

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/2 15:17:00 [显示全部帖子]

e.Form.controls("当前时间").Text = Date.Now
Dim fdr As DataRow = DataTables("运行日期").Find("日期 = #" & Date.Today & "#")
If fdr IsNot Nothing Then
msgbox("需要运行,在下面写你要运行的代码")
End If

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/2 16:12:00 [显示全部帖子]

fdr 改一个名字啊，不要同名啊。

e.Form.controls("当前时间").Text = Date.Now
Dim fffdr As DataRow = DataTables("运行日期").Find("日期 = #" & Date.Today & "#")
If fffdr IsNot Nothing Then
msgbox("需要运行,在下面写你要运行的代码")
End If

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/2 16:44:00 [显示全部帖子]

不要停止执行啊，把以前的代码粘贴进去啊。

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/2 16:52:00 [显示全部帖子]

无语

e.Form.controls("当前时间").Text = Date.Now
Dim fffdr As DataRow = DataTables("运行日期").Find("日期 = #" & Date.Today & "#")
If fffdr IsNot Nothing Then
粘贴代码啊
End If