为何无法筛选时间范围？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为何无法筛选时间范围？

共有2759人关注过本帖树形打印复制链接主题：为何无法筛选时间范围？

rophy0952

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

为何无法筛选时间范围？ 发帖心情

Post By：2015/11/6 15:34:00 [只看该作者]

如题，请问在筛选时间范围的时候，应该出现的筛选结果（紫色框内）未出现，是何原因？

此主题相关图片如下：qq截图20151106153321.jpg

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/6 15:40:00 [只看该作者]

菜单那里筛选的，是当天的日期时间，是有点问题的。

你要自己写代码，如

Dim d1 As Date = "1900-01-01 " & "00:00"
Dim d2 As Date = "1900-01-01 " & "23:00"
Tables("表B").Filter = "第四列 >= #" & d1 & "# and 第四列 <= #" & d2 & "#"

rophy0952

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/11/6 16:46:00 [只看该作者]

谢谢大红袍的回复！如果说"1900-01-01 " & "00:00"这部分的值是引用两个控件的值，那么这样表达对吗？为什么会提示出错呢？

Dim d1 As Date = "'" & forms("分切工piao信息").controls("分切日期").value & "'" & "'" & forms("分切工piao信息").controls("开始时间").value & "'"

Dim d2 As Date = "'" & forms("分切工piao信息").controls("分切日期").value & "'" & "'" & forms("分切工piao信息").controls("截止时间").value & "'"

DataTables("分切工piao信息").loadfilter = "分切时间 >= #" & d1 & "# and 分切时间 <= #" & d2 & "#"

DataTables("分切工piao信息").load

此主题相关图片如下：qq截图20151106165951.jpg

[此贴子已经被作者于2015/11/6 16:57:24编辑过]

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/6 17:27:00 [只看该作者]

Dim d1 As Date = forms("分切工piao信息").controls("分切日期").value & " " & forms("分切工piao信息").controls("开始时间").value
Dim d2 As Date = forms("分切工piao信息").controls("分切日期").value & " " & forms("分切工piao信息").controls("截止时间").value
DataTables("分切工piao信息").loadfilter = "分切时间 >= #" & d1 & "# and 分切时间 <= #" & d2 & "#"
DataTables("分切工piao信息").load

rophy0952

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/11/6 17:32:00 [只看该作者]

错误提示：

此主题相关图片如下：qq截图20151106173434.jpg

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/6 17:53:00 [只看该作者]

msgbox看一下值

msgbox(forms("分切工piao信息").controls("分切日期").value & " " & forms("分切工piao信息").controls("开始时间").value)

rophy0952

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/11/7 8:51:00 [只看该作者]

早上好，大红袍！

昨天msgbox看过，结果是两个日期，后来我把时间那里format过再筛选还是不行。我就改变了一种方式，在表中增加了一列日期和时间，然后统一筛选。但是筛选后的结果是没有在日期范围内的记录也出来了。请问该如何处理呢？谢谢！

代码：

Dim Filter As String

With e.Form.Controls("开始时间")

If .Value IsNot Nothing Then

Filter = "分切日期时间 >= '" & .value & "'"

End If

End With

With e.Form.Controls("截止时间")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = "分切日期时间 <= '" & .value & "'"

End If

End With

If Filter > "" Then

DataTables("分切工piao信息").LoadFilter = filter

DataTables("分切工piao信息").Load

End If

Tables("分切工piao信息_分切工piao信息").sort = "分切日期时间"

Hyphen

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/11/7 9:35:00 [只看该作者]

再加上日期的筛选条件，类似

With e.Form.Controls("分切日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = "分切日期 = '" & .value & "'"
    End If
End With

rophy0952

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/11/7 9:49:00 [只看该作者]

是这样的，控件那里的分切日期我不想用了，就想通过开始时间和截止时间一起进行筛选，如图，结果不对。

此主题相关图片如下：qq截图20151107094640.jpg

Hyphen

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/11/7 10:07:00 [只看该作者]

没有看到有“分切日期时间”列，这列数据是怎么样的

下一主题 >> << 上一主题

总数 17 1 2 下一页

主题：为何无法筛选时间范围？