主题：事件提醒器

Dim a As Date = Date.Now
a= a.AddSeconds(-a.Second) '去掉秒

DataTables("事件提醒器").LoadFilter = "事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'"
DataTables("事件提醒器").Load

 

为什么不会加载?

Tables("事件提醒器").Filter = "事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'"
这段代码也不会按照用户名以及时间筛选,只会按照时间筛选.

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

那我再测试一下.我也觉得应该也是没有问题的.

狐爸:我将代码改成这样,测试OK了:

 

Dim a As Date = Date.Now
a= a.AddSeconds(-a.Second) '去掉秒
DataTables("事件提醒器").LoadFilter = "事件到时 = '" & a & "' And 用户名 = '" & User.Name & "'"
DataTables("事件提醒器").Load
Dim dt As DataTable = DataTables("事件提醒器")
If dt.DataRows.Count = 0 Then    但是这一部分我想改成如果没有新的事件加载,就保持原来的事件,怎么改代码?
    Return
Else
    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
End If

不是,狐爸不要对我笑嘛,红色部分你帮我看看嘛.

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

这个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