- 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=60496)
-- 发布时间：2014/11/25 21:04:00
-- 如何对时间段进行筛选，谢谢
数据如实例中表A中所示，如何对[起始时间]列的数据进行指定范围内的筛选，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2014/11/25 21:12:00
--
如下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/11/25 22:26:00
--
谢谢！
-- 发布时间：2014/11/25 23:08:00
-- 回复：（有点甜） 如下 &...
老师，您回复给我的实例添加指定时间段范围，筛选结果不正确呢？请再劳烦老师看一下，谢谢！
-- 发布时间：2014/11/25 23:12:00
-- 回复：（有点甜） 如下 &...
对您增加的erte列也不是很理解，可否老师给予说明一下，谢谢！
-- 发布时间：2014/11/26 9:01:00
--
以下是引用zstk7333在2014-11-25 23:12:00的发言：
对您增加的erte列也不是很理解，可否老师给予说明一下，谢谢！
对您增加的erte列也不是很理解，可否老师给予说明一下，谢谢！
这一列无关紧要的，你可以删除
-- 发布时间：2014/11/26 9:08:00
-- 回复：（有点甜）以下是引用zstk7333在2014-11-25 23:...
你发给我的实例好像有点儿问题，筛选不出结果呢？
-- 发布时间：2014/11/26 9:23:00
--
我测试没有问题啊。
-- 发布时间：2014/11/26 9:24:00
--
代码改一下
Dim txt1 As String = e.Form.Controls("StartDate").Text
Dim txt2 As String = e.Form.Controls("EndDate").text
Dim filter As String = "1=1"
If txt1 <> Nothing Then
Dim sd As Date = txt1
filter &= " and 起始时间 >= #" & new Date(1900,1,1,sd.Hour,sd.Minute,sd.Second) & "#" \'Convert(起始时间,\'System.String\')
End If
If txt2 <> Nothing Then
Dim sd As Date = txt2
filter &= " and 起始时间 <= #" & new Date(1900,1,1,sd.Hour,sd.Minute,sd.Second) & "#" \'Convert(起始时间,\'System.String\')
End If
e.Form.Controls("Table1").Table.Filter = filter
-- 发布时间：2014/11/26 19:16:00
-- 回复：（有点甜）代码改一下 Dim txt1 As St...
老师，您给我的实例可以查到00：00—23:59之间的范围，如果我想查从18：：00—次日4:00的这种情况，该如何编码？谢谢