主题：[求助]有点甜老师，有关查询条件

有点甜老师，我原来是按控件ComboBox建立年度项目，只可以查询一年的记录，比如2015年的记录，您告诉的代码如下，非常好用。

Dim Filter As String = "1=1"
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
       
        Filter = Filter & " and 年度 = '" & .Value & "'"
    End If
End With
Tables("信息查询表").Filter = Filter

 

 

现在我想用CheckedComboBox控件，这个控件是有复选功能，这样就可以一起选择查询多年的记录了，这样就可以按照需要选择几年的记录一起看了，这样改了一下，只能查一年，如果勾选多个确定后，（有的年度本来就没有记录）代码应该是怎样，还得麻烦您啦，谢谢！

With e.Form.Controls("CheckedComboBox1")
    If .Value IsNot Nothing Then
       
        Filter = Filter & " and nd = '" & .Value & "'"
    End If
End With

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

Dim Filter As String = "1=1"

With e.Form.Controls("combobox1")
    If .Value IsNot Nothing Then
        Filter = Filter & " and kl = '" & .Value & "'"
    End If
End With

With e.Form.Controls("CheckedComboBox1")
    If .Value IsNot Nothing Then
        Filter &= " and nd in ('" & .Value.replace(",", "','") & "')"
    End If
End With

With e.Form.Controls("CheckedComboBox2")
    If .Value IsNot Nothing Then
        Filter &= " and yxdq in ('" & .Value.replace(",", "','") & "')"
    End If
End With

With e.Form.Controls("combobox2")
    If .Value IsNot Nothing Then
       
        Filter = Filter & " and lqpc like  '%" & .Value &   "%'"
    End If
End With

Tables("信息查询表").Filter = Filter

 

老师，以上这几个复选框一起做为相互条件，非常好用，可是在有的时候两个复选框之间却需要以下带红这字的代码才能一起使用，不知为什么！以下代码是有点蓝老师告诉我的。

Dim Filter As String = "1=1"

With e.Form.Controls("CheckedComboBox1")     If .Value IsNot Nothing Then         Filter &= " and 考试时间 in ('" & .Value.replace(",", "','") & "')"     End If End With if Filter = "1=1" then With e.Form.Controls("CheckedComboBox2")     If .Value IsNot Nothing Then         Filter &= " and 班级 in ('" & .Value.replace(",", "','") & "')"     End If End With end if

Tables("信息查询表").Filter = Filter

 

以上红字的代码是在什么情况下必须用的，谢谢两位老师！

非常感谢老师，辛苦啦！

对啦，老师，列名用汉字和英语是一样的么，比如列名是考试时间，改成英语字母kssj的列名这样会影响代码么，我的问题好像在这里！六楼的列名是字母，七楼是汉字，得加上红色的代码两个复选框才好使，谢谢你！

我的窗口是绑定表的，如果没有红色的代码，那么其中的一个复选框的查询条件不能使用的

也就是复选框的选择条件，比如班级，我选了一班或者二班，那么就不按我选的班级出现结果，而是只出现另一个复选框考试时间的选择结果！

今天太晚了，明天我去单位给你您截图和完整的代码给你看看，辛苦啦，早点休息，谢谢

没有弹出什么

只是绑定表中出现的查询结果不对！