vb复合查询

       在敲《机房收费系统》的时候，我们遇到了一个组合查询，经过不懈努力，终于做出来了，现把思路和代码总结如下：

       

       首先是组合框列表项的载入，在Form_Load中添加如下代码：

    For intIndex = 0 To 2
        cboFields(intIndex).AddItem "教师"
        cboFields(intIndex).AddItem "注册日期"
        cboFields(intIndex).AddItem "注册时间"
        cboFields(intIndex).AddItem "注销日期"
        cboFields(intIndex).AddItem "注销时间"
        cboFields(intIndex).AddItem "机器名"
        cboFields(intIndex).ListIndex = 0
        
        cboOperator(intIndex).AddItem "="
        cboOperator(intIndex).AddItem "<"
        cboOperator(intIndex).AddItem ">"
        cboOperator(intIndex).AddItem "<>"
        cboOperator(intIndex).ListIndex = 0
    Next intIndex
    
    For intIndex = 0 To 1
        cboRelation(intIndex).AddItem ""
        cboRelation(intIndex).AddItem "或"
        cboRelation(intIndex).AddItem "与"
        cboRelation(intIndex).ListIndex = 0
    Next intIndex

       这里运用了控件数组，载入列表项时再用for循环，大大减少代码量。因为这些列表在查询的时候必然会选择一项内容࿰