主题：字符串包含筛选

以下是表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
以上代码的筛选包含了路径和文件夹，我只想对文件名进行包含筛选，谁能帮我修改一下代码。

 如果要对文件名进行筛选的话，只能是遍历一次整个表了，然后再设置筛选条件。

 不能取巧的，除非你的文件名较为特殊。比如，是特定的格式。

[文件名]列是字符型，记录为：\\服务器\文件夹\GB/T 5023-2008  PVC绝缘电线.doc

以上代码可以进行正常筛选，但包含了路径和文件夹，我只是想对“\”后面的字符（GB/T 5023-2008  PVC绝缘电线.doc）进行包含筛选。比如，我在文本框输入“文件”，它也会筛选出如上文件，实际上这个文件不是我要筛选的。

不知我说明白没有。

不可以直接筛选的。

for each r as row in tables().rows
   '自己编写代码匹配吧，记录下_Identify，最后筛选
next

小林老师的思路我不明白，下午传个示例文件上来。

 比如这样。

 dim idxs as string = ""
 for each r as row in tables().rows
     dim idx as integer = r("文件名").LastIndexOf("\")
     if r("文件名").Substring(idx) like "*" & value & "*" Then
         idxs += r("_identify") & ","
    end if
 next

 tables().filter = "_Identify in (" & idxs.Trim(",") & ")"

以下示例：表A窗口，在文本框分别输入“公司”，我需要筛选的是第2条记录，结果全筛选了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.table

你这个如果输入公司的话 应该是筛选三条数据的呀.

就是这个效果，谢了。也谢谢小林老师。