以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求个时间查询的代码~~  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40389)

--  作者:ee5090
--  发布时间:2013/9/17 20:00:00
--  求个时间查询的代码~~
如题,当选择了起始时间和结束时间后,点查询键,能够查询到选择的时间段内的行。
图片点击可在新窗口打开查看此主题相关图片如下:0033.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2013/9/17 20:22:00
--  
 比如你的表名是 订单表,列名是 日期

dim s_date as date = e.form.controls("起始日期").Value
dim e_date as date = e.form.controls("结束日期").Value
Tables("订单").Filter = "日期 >= #" & s_date & "# and 日期 <= #" & e_date & "#"

--  作者:程兴刚
--  发布时间:2013/9/17 20:25:00
--  
    Dim dt1 As Date = e.Form.Controls("开始日期").Value
    Dim dt2 As Date = e.Form.Controls("结束日期").Value
    Tables("表B").Filter = "name = \'" & e.Form.Controls("姓名").Value & "\' and 操作时间 > #" & dt1.AddDays(-1) & "# and 操作时间 < #" & dt2.AddDays(1) & "#"

--  作者:ee5090
--  发布时间:2013/9/17 21:30:00
--  
太谢谢了。用你的代码,果然OK了。