主题：[求助]狐狸爸爸复选组合筛选

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