以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于筛选的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108662)
--  作者：53065289
--  发布时间：2017/10/26 17:41:00
--  关于筛选的问题
在窗口里设置了一个组合框（GuobuGuo），自定义项目是 已过期|未过期  表A里有一列是缴费情况，自定义项目是 新办|续费|退租 ，现在想做一个筛选按钮，想把已过期和新办和续费筛选出来，显示在Table2里，我只会写一部分，求大虾指教？


Dim Filter As String
Dim tbl As Table = e.Form.Controls("Table2").Table

With e.Form.Controls("GuobuGuo")
    If .Value IsNot Nothing Then
        Filter = "到期提醒 = \'" & .Value & "\'" 
    End If
End With

If Filter > "" Then
   Tables("车位费_Table2").Filter =Filter
End If
--  作者：有点甜
--  发布时间：2017/10/26 17:51:00
--  


Dim Filter As String
Dim tbl As Table = e.Form.Controls("Table2").Table


With e.Form.Controls("GuobuGuo")
    If .text <> Nothing Then
        If .text  = "未过期"
            Filter = "到期提醒 = \'新办\' or 到期提醒 = \'续费\'"
        ElseIf .text  = "已过期"
            Filter = "到期提醒 = \'退租\'"
        End If
    End If
End With


Tables("车位费_Table2").Filter =Filter

[此贴子已经被作者于2017/10/26 17:51:34编辑过]
--  作者：53065289
--  发布时间：2017/10/27 10:14:00
--  
谢谢大虾指导