Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
好了,加了2句代码
DataTables("人员信息").LoadFilter = "[状态] = '" & .Value & "'"
DataTables("人员信息").Load
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "状态 = '" & .Value & "'"
End If
End With