主题：包含与多值筛选

以下2段筛选代码单独使用没有问题,我想将这2段代码合并在一起,组成包含与多值筛选,试了一下,老不成功,特此求助,代码按钮在表A窗口

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

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

'模糊包含
Dim Filter As String
With e.Form.Controls("姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 Like '*" & .Value & "*'"
    End If
End With
Tables("表A").filter = Filter

'多值筛选
Dim Filter As String = e.Form.Controls("姓名").Value
If Filter > "" Then
    If Filter.Contains(",") Then
        Filter = "'" & Filter.Replace(",","','") & "'"
        Tables("表A").Filter = "[姓名] In (" & Filter & ")"
    Else
        Tables("表A").Filter = "[姓名] = '" & Filter & "'"
    End If
End If