Dim s As String = ClipBoard.GetText()' Output.Show(s)
Dim Filter As String If s > "" Then Filter = "制度职责名称 Like '%" & s & "%'" End IfIf Filter > "" Then Tables("制度职责").Filter = Filter End If