标题: 窗体筛选不支持 in 函数吗 [打印本页] 作者: t360103 时间: 2009-3-22 10:06 标题: 窗体筛选不支持 in 函数吗 代码如下,但不支持 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