主题：事件提醒器

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

 

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

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

 

呵呵，有的，你看：

 

http://help.foxtable.com/topics/0430.htm

原理不同，这个没有办法向QQ这样的。

应该这样吧：

 

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(
    dr.Load()
End If

代码没有看出问题来，你用Messagebox显示一下合成的条件看看。

可以先用SQL的Select语句从后台查询一下，如果后台有新的事件，再加载，否则不加载

呵呵，这样：

 

Dim cnt As Integer
Dim cmd As New SQLCommand
cmd.CommandText = "Select Count(*) From {表名} Where 条件"
cnt = cmd.ExecuteScalar()

if cnt > 0 then

    '有了

end If