以下是表A[文件名]列的包含筛选 Dim Filter As String With e.Form.Controls("文件名") If .Value IsNot Nothing Then Filter = "文件名 Like '*" & .Value & "*'" '筛选文本框中与文件名字符串匹配的记录 End If End With Tables("表A").filter = Filter [文件名]列是由 文件路径 + 文件夹 + 文件名组成,比如:\\服务器\文件夹\GB/T 5023-2008 PVC绝缘电线.doc 以上代码的筛选包含了路径和文件夹,我只想对文件名进行包含筛选,谁能帮我修改一下代码。
|