主题：事件提醒器

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {事件提醒器} Where [事件到时] = '" & a & "' And 用户名 = '" & User.Name & "'"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then

代码

End If

我的是这样?行嘛!

哦,我测试一下.

以下是引用blackzhu在2011-4-8 15:10:00的发言：

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

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

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

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

像朱兄这样不用回贴就可以下载，方显大度。