主题：[求助]怎样根据日期列的日期，显示提示

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