以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于日期筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70590)

--  作者:chenjiu6202
--  发布时间:2015/6/24 18:52:00
--  [求助]关于日期筛选


图片点击可在新窗口打开查看此主题相关图片如下:714fqag%2_qvd{cxb1x4$g.png
图片点击可在新窗口打开查看

 

上图这个表中,起始时间是time格式,如何获取6月24日18点以后所有的记录

请帮忙看看下面这段代码错在哪里了?


Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Select GetDate()"
Dim dt As Date
dt = cmd.ExecuteScalar()
Dim dy As Date  = dt.Date
Dim hy As String = " 18:00"
Dim ht As Date = dy + hy
Dim hy1 As Date = Format(ht,"HH:mm")
Dim h As TimeSpan = ht - dt
If h.TotalMinutes < 0 Then
    For Each mx As DataRow In DataTables("计划图").Select("起始日期 = #"& dt.Date &"# And 起始时间 >= #"& hy1 &"#")
        If mx("终到站") = "虎石"
            Dim z As String = mx("终到时间")
            Dim q As String = mx("起始时间")
           
        End If
    Next
Else
End If


--  作者:大红袍
--  发布时间:2015/6/24 19:49:00
--  

 试试

 

For Each mx As DataRow In DataTables("计划图").Select("起始日期 = #" & dt.Date & "# And 起始时间 >= #" & new Date(1900,1,1,18,0,0) & "#")


--  作者:chenjiu6202
--  发布时间:2015/6/25 8:14:00
--  

袍哥,谢了,ok了,但是,你能给我说说是什么原理吗?或者有这个知识点的相关资料也行


--  作者:大红袍
--  发布时间:2015/6/25 9:44:00
--  
以下是引用chenjiu6202在2015/6/25 8:14:00的发言:

袍哥,谢了,ok了,但是,你能给我说说是什么原理吗?或者有这个知识点的相关资料也行

 

没有日期的时间,默认的年月日,是1900年1月1日,必须这样拼凑才行。


--  作者:chenjiu6202
--  发布时间:2015/6/26 20:50:00
--  

谢谢!袍哥,又学到了知识,真诚感谢!