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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间变量与if语句

共有4462人关注过本帖树形打印复制链接主题：时间变量与if语句

大红袍

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

加好友

发短信

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

Post By：2016/4/20 22:42:00 [只看该作者]

不是播放完test.wav的音乐，再继续判断下个时间的么？

wenniu9

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

加好友

发短信

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

Post By：2016/4/21 8:57:00 [只看该作者]

此主题相关图片如下：111.png

老师很棒！呵呵。搞定了。但开始播放音乐时，怎么那个系统时间不动了。

wenniu9

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

加好友

发短信

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

Post By：2016/4/21 8:57:00 [只看该作者]

播放完毕时间才继续。能否让时间一直不受播放音乐影响。也就是说：音乐它播放它的。时间继续走的

[此贴子已经被作者于2016/4/21 8:58:06编辑过]

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/4/21 8:59:00 [只看该作者]

线程阻塞，另外做个计划管理进行播放

大红袍

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

加好友

发短信

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

Post By：2016/4/21 9:22:00 [只看该作者]

改代码

e.Form.Controls("现在时间").Text = Date.Now

Dim dt As DataTable = DataTables("表A")
Dim d As Date = new Date(1900, 1, 1, Date.now.hour, Date.now.Minute, Date.now.Second)
Dim fdr As DataRow = dt.find("时间表 >= #" & d.AddSeconds(0) & "# And 时间表 <= #" & d & "#")
If fdr IsNot Nothing Then
Audio.play(ProjectPath & "Attachments/" & fdr("执行音乐"), AudioPlayMode.Background)
End If