内置的:
http://www.foxtable.com/webhelp/scr/0126.htm
Syscmd.Filter.Advanced()
自己写个简单的:
Dim s As String If InputValue(s,"请输入查询内容","") Then Tables("员工").Filter = "姓名 like '*" & s & "*'"End If
自己写个复杂的:
http://www.foxtable.com/webhelp/scr/1058.htm