主题：[求助]还是时间过滤问题？

要这样处理一下的。

Dim d As Date = "8:45"

d = New Date(1900, 1, 1, d.hour, d.minute, 0)

Tables("表A").Filter = "日期 = #" & d & "#"

 你问题没有问清楚，代码这样写

tdr =DataTables("今日提醒").Select( "[提醒来源] = '" &  PoolName & "' And [进入日期] >= #" & date.Today & "# and [进入日期] < #" date.today.adddays(1) "# And [股piao代码] = " & CInt(StockC) )

Dim dtTodayTime As Date = Date.Now
Dim d1 As Date = dttodaytime.Date
Dim d2 As Date = new Date(1900, 1, 1, dttodaytime.Hour, dttodaytime.Minute, 0)
DataTables("今日提醒").Select("进入日期 = #" & d1 & "# And 进入时间 = #" & d2 & "#")

如果你不知道进入时间的值，你可以加入一列表达式列，显示其具体的值，你就知道了。

认认真真看12楼代码，和你的有区别啊。

不会写上传具体实例。