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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口弹出并提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186712)

--  作者：985123414
--  发布时间：2023/5/23 8:59:00
--  窗口弹出并提示

Forms("打卡提醒").Open
If Forms("打卡提醒").Opened Then
Dim dr As DataRow = DataTables("打卡提醒").Find("Substring(打卡提醒,1,8) <= \'" & Format(Date.Now,"HH:mm:ss") & "\' And Substring(打卡提醒,10,8) >= \'" & Format(Date.Now,"HH:mm:ss") & "\'")
If dr Is Nothing Then
Forms("打卡提醒").Visible = False
Forms("打卡提醒").BaseForm.WindowState = 1
Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = False
Else
Forms("打卡提醒").Visible = True
Forms("打卡提醒").BaseForm.WindowState = 0
Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = True
End If
End If

现在可以在开始的时间弹出提醒，怎么才能让它在结束时间也弹出提醒呢？

--  作者：有点蓝
--  发布时间：2023/5/23 9:27:00
--

If dr Is Nothing Then
if vars("开始提醒")=true
Forms("打卡提醒").Visible = True
Forms("打卡提醒").BaseForm.WindowState = 0
Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = True
vars("开始提醒")=false
else
Forms("打卡提醒").Visible = False
Forms("打卡提醒").BaseForm.WindowState = 1
Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = False
endif
Else
Forms("打卡提醒").Visible = True
Forms("打卡提醒").BaseForm.WindowState = 0
Forms("打卡提醒").Controls("CheckBox声音提醒").Checked = True
vars("开始提醒")=true
End If

--  作者：985123414
--  发布时间：2023/5/23 10:13:00
--

还是不行，我是在打卡提醒列里设置了这样的起止时间，麻烦您看一下，这样的话需要怎么修改？

11:30:00-12:30:00

--  作者：有点蓝
--  发布时间：2023/5/23 10:26:00
--
可能还有其它地方要改吧。我对这个打卡提醒功能看的迷迷糊糊的，没怎么看得懂