以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教关于实时筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14920)
--  作者：kevin
--  发布时间：2011/12/7 1:23:00
--  请教关于实时筛选

请教，关于实时筛选

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

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

 

 

[此贴子已经被作者于2011-12-7 1:26:22编辑过]
--  作者：狐狸爸爸
--  发布时间：2011/12/7 9:26:00
--  

这样：

 

 

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

 

另一个请参照着修改即可