窗体筛选不支持 in 函数吗

t360103

代码如下，但不支持 in 函数，请各位大哥指点。

Private Sub pro_afterupdate()
Dim StrFlt
StrFlt = "姓名 in 张山王武李四 "
If StrFlt <> "" Then
StrFlt = Left(StrFlt, Len(StrFlt) - 5)
End If
Me.CFDetFG.Form.filter = StrFlt
Me.CFDetFG.Form.FilterOn = True
End Sub

只想通过窗体筛选方式，不想通过改变数据源的SQL语句方式。