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

此主题相关图片如下：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

主题：时间筛选的问题