做了一个事件提醒器,比较简陋,供新手学习之用,如要进入表界面,直接关闭窗口就可以了.如果按退出界面会直接退出.

打开后会出来一个界面,界面是将所有的事件历史全部显示出来,只要双击时间,会将此时间段的事件一一显示出来,如果要设置某一事件要求在几号的几分提醒你,请按主界面下面的按钮进行设置.只能准确的分!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:事件提醒器.table

呵呵，老兄这么快就共享了，顶你。

水平比较差,只能做一些简单的.新手学学也好.

Dim a As Date = Date.Now
a= a.AddSeconds(-a.Second) \'去掉秒
Dim dr As DataRow
dr= DataTables("事件提醒器").Find("事件到时 = #" & a & "#" And "用户名 = \'" & User.Name & "\'" )
If dr IsNot Nothing Then
    Tables("事件提醒器").Filter = "事件到时 = #" & a & "#" And "用户名 = \'" & User.Name & "\'"
    forms("提醒事件查看窗口").open()
End If

 这句代码没有反应,是怎么回事?

比较的时候你去掉了秒，记得录入的时候，也不能有秒，否则就不等了。

狐爸,我输入时没有加入秒,现在这个代码有问题,我改了代码:

Dim a As Date = Date.Now
a= a.AddSeconds(-a.Second) \'去掉秒
Dim dr As DataRow
dr= DataTables("事件提醒器").Find("事件到时 = \'" & a & "\' And 用户名 = \'" & User.Name & "\'")
If dr IsNot Nothing Then
    Tables("事件提醒器").Filter = "事件到时 = \'" & a & "\' And 用户名 = \'" & User.Name & "\'"
    forms("提醒事件查看窗口").open()
End If

但是这个代码有个问题,就是只要时间一到了,窗口就跳出来了,不管是不是用户名是不是登录名都会跳!怎么修改?

同步整个表的话，效率比较低，可以只同步到期的行。