以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于时间的比较  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107024)
--  作者：堕落的后天
--  发布时间：2017/9/20 12:10:00
--  [求助]关于时间的比较
Dim tbl As Table = Tables("预约_Table1")
Dim T1 As Date = #00:00#
Dim T2 As Date = #12:00#






tbl.Filter = " [开始时间] >=  \'" & T1 & " \' And   [结束时间] <=  \'" & T2 & " \' "


“开始时间”和“结束时间”字段都是t时间型形数据（time）   


但是筛选后却没有符合的，这是为什么？
--  作者：有点甜
--  发布时间：2017/9/20 15:03:00
--  

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 & "#"

[此贴子已经被作者于2017/9/20 23:20:26编辑过]
--  作者：堕落的后天
--  发布时间：2017/9/20 22:56:00
--  
好像还是不行啊 
--  作者：有点甜
--  发布时间：2017/9/20 23:23:00
--  

我在表C这样测试，没问题

 

Dim tbl As Table = Tables("表c")
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 & "#"

 
--  作者：堕落的后天
--  发布时间：2017/9/21 12:51:00
--  
然后我就换了思路   把时间字段做成函数 由4个字段合成  （[开始时] + \':\' + [开始分] + \'-\' + [结束时] + \':\' + [结束分]）， 这样我只要判断“开始时”大小即可