- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 时间问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84442)
-- 发布时间：2016/5/2 13:28:00
-- 时间问题
此主题相关图片如下：qq图片20160502132430.png
-- 发布时间：2016/5/2 14:40:00
--
单独做一个表记录要运行的日期。打开窗口的时候，判断今天是否在那个表里面，如果不在，就关闭计时器。
Dim fdr As DataRow = DataTables("运行日期").Find("日期 = #" & Date.Today & "#")
If fdr Is Nothing Then
msgbox("不需要运行")
Else
msgbox("需要运行")
End If
-- 发布时间：2016/5/2 14:49:00
--
此主题相关图片如下：qq图片20160502144829.png
此主题相关图片如下：qq图片20160502145035.png
-- 发布时间：2016/5/2 14:53:00
--
上传具体例子。
-- 发布时间：2016/5/2 14:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2016/5/2 14:59:00
--
怪不得叫大红袍了。老大就是老大
-- 发布时间：2016/5/2 15:03:00
--
afterload中写入也是那个问题
-- 发布时间：2016/5/2 15:15:00
--
老大？
-- 发布时间：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
-- 发布时间：2016/5/2 16:06:00
--
我要运行的代码是：
Dim fdr As DataRow = dt.find("时序>= #"
& d.AddSeconds(0) & "# And 时序<= #"
& d & "#")
Dim str As String = Format(Date.Today, "dddd")
If fdr
IsNot Nothing Then
Audio.play(ProjectPath & "Attachments/" &
fdr(str),AudioPlayMode.Background)
下面是全部代码：
e.Form.controls("当前时间").Text = Date.Now
Dim fdr As DataRow = DataTables("运行日期").Find("日期 = #" & Date.Today & "#")
Dim fdr As DataRow = dt.find("时序>= #" & d.AddSeconds(0) & "# And 时序<= #" & d & "#")
Dim str As String = Format(Date.Today, "dddd")
If fdr IsNot Nothing Then
Audio.play(ProjectPath & "Attachments/" & fdr(str),AudioPlayMode.Background)
提示：错误代码位置