时间段筛选,我做过加班筛选。首先两个日期框输入日期时段,再在两个日期框(时间类型)输入时间段,做一个筛选按钮,不知道能否解决你的问题,我是在老师指导下做成的。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) & "'"