以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎样根据日期列的日期，显示提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9228)
--  作者：方丈
--  发布时间：2011/3/16 19:05:00
--  [求助]怎样根据日期列的日期，显示提示
项目中有一列为日期列，想要系统根据日期，到期的时候显示提示（类似闹钟）怎样写代码？
--  作者：狐狸爸爸
--  发布时间：2011/3/16 21:37:00
--  
你可以在项目时间AfterOpenProject写代码，判断日期列中的日期值和系统日期值是否相等，如果等于，就用MessageBox显示一个提示信息。
--  作者：blackzhu
--  发布时间：2011/4/7 17:45:00
--  做了一个简单的简历生产器
以下是引用狐狸爸爸在2011-3-16 21:37:00的发言：
你可以在项目时间AfterOpenProject写代码，判断日期列中的日期值和系统日期值是否相等，如果等于，就用MessageBox显示一个提示信息。

 这个代码怎么写?一列为"提醒到时"等到了系统日期一样,会出来一个窗口,帮忙写一个!谢谢!
--  作者：狐狸爸爸
--  发布时间：2011/4/7 17:52:00
--  

呵呵，这个你肯定能自己写的：

 

在AfterOpenProject事件中设置代码，用DataTable的Find函数检测表中是否有到期日期等于系统日期的行，如果有就用MessageBox提示用户有记录到期，是否显示到期的记录，如果用户选择是，就设置Table的Filter属性，显示到期日期为系统日期的行。

[此贴子已经被作者于2011-4-7 17:51:53编辑过]
--  作者：blackzhu
--  发布时间：2011/4/7 18:41:00
--  

我想想
--  作者：blackzhu
--  发布时间：2011/4/7 19:32:00
--  

Dim a As Date=Date.now()
Dim dr As DataRow
dr= DataTables("提醒").Find("提醒到时 = \'" & a & "\'")

If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
    MessageBox.show("找到")
End If

 

 

这段代码我放在命令窗口可以用但是为什么项目属性就不行
--  作者：blackzhu
--  发布时间：2011/4/7 19:54:00
--  
整不明白，命令窗口行的呀
--  作者：狐狸爸爸
--  发布时间：2011/4/7 21:40:00
--  

呵呵，不能用Now，通Today，Now带时间的。

 

Dim a As Date=Date.Today
Dim dr As DataRow
dr= DataTables("提醒").Find("提醒到时 = #" & a & "#")

If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
      MessageBox.show("找到")
End If

[此贴子已经被作者于2011-4-7 22:31:50编辑过]
--  作者：blackzhu
--  发布时间：2011/4/8 7:40:00
--  
狐爸,我昨日也想到用today的,但是我想做提醒的东西,比如我要求一个工作在几号的几点几十分提醒我.
--  作者：狐狸爸爸
--  发布时间：2011/4/8 7:57:00
--  

Now精确到秒，是很难相等的，比较的时候，应该去掉秒：

你可以做一个计划，没30执行一次。

 

Dim a As Date = Date.Now
a= a1.AddSeconds(-a1.Second) \'去掉秒
Dim dr As DataRow
dr= DataTables("提醒").Find("提醒到时 = #" & a & "#")
If dr IsNot Nothing Then
    MessageBox.show("找到")
End If