以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选剪贴板内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143477)
--  作者：nxqtxwz
--  发布时间：2019/11/26 11:53:00
--  筛选剪贴板内容

请问老师，我在菜单栏做一按钮，点按钮直接在 "制度职责名称"列查找剪贴板上的内容，代码怎么写呢？

 

Dim s  As  String = ClipBoard.GetText()
\' Output.Show(s)

Dim Filter As String
With e.Form.Controls("s")
    If .Value IsNot Nothing Then
        Filter = "制度职责名称 Like  \'%" & .Value & "%\'"
    End If
End With
If   Filter >   "" Then
     Tables("制度职责").Filter =   Filter
 End If
--  作者：有点蓝
--  发布时间：2019/11/26 11:55:00
--  

Dim s  As  String = ClipBoard.GetText()
\' Output.Show(s)

Dim Filter As String

    If s > "" Then
        Filter = "制度职责名称 Like  \'%" & s & "%\'"
    End If

If   Filter >   "" Then
     Tables("制度职责").Filter =   Filter
 End If
--  作者：nxqtxwz
--  发布时间：2019/11/26 12:30:00
--  

谢谢老师，请问我想在最小化项目窗口时，清除筛选代码怎么写，写在哪呢？
--  作者：有点蓝
--  发布时间：2019/11/26 13:37:00
--  
没有这种事件触发。可以通过点击菜单的取消筛选：http://www.foxtable.com/webhelp/topics/0129.htm