异化《图书例》（多条件查询）

浩雨

供参考：

lupo

不错，收藏。和以前那个相比，精简了代码。

不过以前那个比较适合教学，容易看懂。

浩雨

本例：

1、主要采用“遍历”方法访问窗体上所有的控件，利用Control的ControlType 属性来区分所需的控件。当窗体上有多个控件需要访问时，建议用“遍历”的方法。

2、检测筛选条件变量是否为“空”，决定“and”的写入。

                If Len(strBoxWhere) Then
                    strBoxWhere = strBoxWhere & " and " & CtlName & strSing & strMark & ctl & strMark
                Else
                    strBoxWhere = CtlName & strSing & strMark & ctl & strMark
                End If
3、利用共性，使用变量。如，利用控件名的长短来区分“=”与“>=”或“<=”；利用控件名的尾字符“1”和“2”来区分“>=”和“<=”。

另外表的链接也改动过。