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

有点甜老师，我原来是按控件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

1、贴出完整代码说明问题。

 

2、说明现在报什么错。

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

 

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

用这个代码绝对没问题

 

Dim Filter As String = "1=1"

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

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

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

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

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

非常感谢老师，辛苦啦！

不可能。请直接用6楼代码。

 

如果还是有问题，msgbox(filter)看弹出什么。

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

在代码最后，加入msgbox(filter)弹出什么？