以下是引用lin_hailun在2012-12-22 16:31:00的发言:
Dim idxs As String = ""
Dim s1 As String = e.Form.Controls("文件名称").Value
If s1 > "" Then
Dim arys() As String = s1.Split(",") '注意逗号 小林写的空格
For Each r As Row In Tables("表A").rows
Dim idx As Integer = r("文件名称").LastIndexOf("\")
For Each ary As String In arys
If r("文件名称").Substring(idx) Like "*" & ary & "*" Then
idxs += r("_identify") & ","
End If
Next
Next
If idxs > "" then Tables("表A").Filter = "_Identify in (" & idxs.Trim(",") & ")"
End If
很满意