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

分切日期时间列

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

msgbox(filter),看条件是否正确，到数据库执行是什么结果

时间段筛选，我做过加班筛选。首先两个日期框输入日期时段，再在两个日期框（时间类型）输入时间段，做一个筛选按钮，不知道能否解决你的问题，我是在老师指导下做成的。

Dim Filter As String

With e.Form.Controls("DateTimePicker1")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 >= '" & .Value & "'"

End If

End With

With e.Form.Controls("DateTimePicker2")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 <= '" & .Value & "'"

End If

End With

DataTables("表").LoadFilter = Filter

DataTables("表").Load()

Dim dd1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3")

Dim dd2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker4")

Dim val1 As Date = dd1.Value

Dim val2 As Date = dd2.Value

Tables("加班窗口_table1").Filter = "[接诊时间] >= '" & new Date(1900,1,1,val1.Hour,val1.Minute,val1.Second) & "' And [接诊时间] <= '" & new Date(1900,1,1,val2.Hour,val2.Minute,val2.Second) & "'"

如果还不行，做个简单的例子上来看看。

试过还是不行，做了个例子，麻烦帮忙看看，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

Dim Filter As String = "1=1"
With e.Form.Controls("客户代号1")
    If .Value IsNot Nothing Then
        Filter &= " and 客户代号 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("开始时间1")
    If .Value IsNot Nothing Then
         filter &= " and 分切日期时间 >= #" & .value & "#"
    End If
End With

With e.Form.Controls("截止时间1")
    If .Value IsNot Nothing Then
         filter &= " and 分切日期时间 <= #" & .value & "#"
    End If
End With

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

Tables("生产报表_分切工piao信息").sort = "客户代号,分切日期时间"

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