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

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

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

wenniu9

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

加好友

发短信

等级：幼狐帖子：121 积分：896 威望：0 精华：0 注册：2016/4/1 16:17:00

Post By：2016/5/2 16:08:00 [只看该作者]

劳烦再给看看

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

wenniu9

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

加好友

发短信

等级：幼狐帖子：121 积分：896 威望：0 精华：0 注册：2016/4/1 16:17:00

Post By：2016/5/2 16:36:00 [只看该作者]

现在的问题：如果日期列中有一个日期。程序正常。但是如果放多个日期呢？

关键是：我让时间停止。如果日期里面我输入5月2日。时间停止了。但是，因为时间一直停止不动。无法体现后面的日期，比如3号就应该运行时间。但是。呵呵，过不来

e.Form.controls("当前时间").Text = Date.Now

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

If fdr IsNot Nothing Then

e.Form.TimerEnabled = True

Else

e.Form.TimerEnabled = False

End If

大红袍

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

加好友

发短信

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

Post By：2016/5/2 16:44:00 [只看该作者]

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

wenniu9

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

加好友

发短信

等级：幼狐帖子：121 积分：896 威望：0 精华：0 注册：2016/4/1 16:17:00

Post By：2016/5/2 16:46:00 [只看该作者]

还得设置日期一样运行播放了。否则没法弄。一个日期倒是能解决了。就是多个日期不行。因为日期不一样的时候，系统时间停止。无法前进。

大红袍

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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