Dim tbl As Table = Tables("预约_Table1")Dim T1 As Date = #00:00#Dim T2 As Date = #12:00#
t1 = new Date(1900, 1, 1, t1.Hour, t1.Minute, 0)t2 = new Date(1900, 1, 1, t2.Hour, t2.Minute, 0)tbl.Filter = " [开始时间] >= #" & T1 & "# And [结束时间] <= #" & T2 & "#"