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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间筛选的问题

共有3008人关注过本帖树形打印复制链接主题：时间筛选的问题

2425004926

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

加好友

发短信

等级：三尾狐帖子：712 积分：5559 威望：0 精华：0 注册：2019/11/14 9:36:00

时间筛选的问题 发帖心情

Post By：2020/9/14 16:26:00 [只看该作者]

此主题相关图片如下：1600070251(1).png

对“表A"时间列进行筛选

下载信息 [文件大小：下载次数： ]
点击浏览该文件:时间测试.zip

测试2020-09-13，表示的是2020年9月13日0分0秒

如果对于2020-09-13，

早于：希望得到13日以前，不包括13日

等于：希望得到13日的

晚于：希望得到13日以后，不包括13日

以下代码如何修改？谢谢指点！

Dim a As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim b As WinForm.TextBox = e.Form.Controls("TextBox1")
With Tables("表A")
    Select Case e.sender.text
        Case "早于"
            .filter = "[" & a.Text & "] < '" & Cdate(b.Text) & "'"
        Case "等于"
            .filter = "[" & a.Text & "] = '" & Cdate(b.Text) & "'"
        Case "晚于"
            .filter = "[" & a.Text & "] > '" & Cdate(b.Text) & "'"
    End Select
End With