参考:
http://www.foxtable.com/webhelp/topics/1058.htm,比如
……
With e.Form.Controls("最大年龄控件")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "年龄 <= " & .Value
End If
End With
With e.Form.Controls("最小年龄控件")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "年龄 >= " & .Value
End If
End With
……