标题：请教关于实时筛选

请教，关于实时筛选

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

窗体中，“产品” 、 “客户" 随时录入数据都自动更新筛选结果,现在需要在”起始日期“输入日期（小于或者等于当前系统时间）并且输入“终止日期”（等于或者小于当前系统时间）后，开始筛选。

 

 

这样：

 

 

Dim txt As String = e.Form.Controls("ComboBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
Dim Filter As String
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        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
If txt > "" Then
    If filter > "" Then
        Filter = Filter &  "And 产品 Like '*" & txt & "*'"
    Else
        Filter= "产品 Like '*" & txt & "*'"
    End If
End If
tbl.Filter = Filter

 

另一个请参照着修改即可