主题：筛选剪贴板内容

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

 

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

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

谢谢老师，请问我想在最小化项目窗口时，清除筛选代码怎么写，写在哪呢？

没有这种事件触发。可以通过点击菜单的取消筛选：http://www.foxtable.com/webhelp/topics/0129.htm