以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]想做个筛选,筛选出含有条件中一部分内容的行。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116067)

--  作者:1452565001
--  发布时间:2018/3/19 14:42:00
--  [求助]想做个筛选,筛选出含有条件中一部分内容的行。

想做个筛选窗口,筛选出含有条件中一部分内容的行。

举个例子

做一个省份筛选,被筛选列填写的是全国的省份名称,做一个窗口,在控件"TextBox1”里填入"北京,上海,深圳",想做一个筛选按钮,筛选出被筛选列的单元格里填写的为"北京","上海","深圳"的单元格所在的行。

请问可行么,可以的话程序要如何写?


--  作者:有点甜
--  发布时间:2018/3/19 14:50:00
--  

按钮代码这样写,如

 

Dim str As String = "北京"   \' e.form.controls("TextBox1").Text

Tables("表A").Filter = "省份 like \'%" & str & "%\'"

 

 


--  作者:有点甜
--  发布时间:2018/3/19 14:51:00
--  

或者参考

 

http://www.foxtable.com/webhelp/scr/1058.htm

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=115559&skin=0

 

 


--  作者:1452565001
--  发布时间:2018/3/19 15:01:00
--  

如果是有多个控件里的内容需要筛选,这么写对么?

Dim Filter1 As String
With e.Form.Controls("TextBox1").text
    If .Value IsNot Nothing Then
        Filter1 = "省份 like \'%" & str & "%\'"
    End If
End With

With e.Form.Controls("TextBox2").text
    If .Value IsNot Nothing Then
        If Filter1 >"" Then
            Filter1 = Filter1 & " And "
        End If
        Filter1 = Filter1 & "销量 <= \'" & .Value & "\' "
    End If
End With

If Filter1 > "" Then
    Tables("表A").Filter = Filter1
End If


--  作者:1452565001
--  发布时间:2018/3/19 15:03:00
--  
嗷嗷,我看一下。谢谢