以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样实现在窗口控件筛选？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129955)
--  作者：comnets
--  发布时间：2019/1/9 15:41:00
--  怎样实现在窗口控件筛选？
在窗口控件模糊筛选，填入“萍”，窗口内该控件下方表格只出现名字里有萍字的记录行，窗口控件没有输入，则下方表格不出现行。怎样实现？
--  作者：有点甜
--  发布时间：2019/1/9 16:26:00
--  

Dim Filter As String = "1=1"

Dim s1 = e.form.controls("textbox1").text

If s1 > "" Then

    filter &= " and 名字 like \'%" & s1 & "%\'"

End If

 

If filter = "1=1" Then

    Tables("表A").filter = "1=2"

Else

    Tables("表A").filter = filter

End If