这段代码为什么只执行一个筛选？

flybutt2

请大虾们帮偶看看，下面这段代码为什么只执行 ‘学期学年’字段的筛选，不能进一步执行 ‘班级’的筛选呢？



Sub PrintReports(PrintMode As Integer)
On Error GoTo Err_Preview_Click
   

    Dim strWhereCategory As String
    Dim strWhereClassID As String
   
    Select Case Me!报表打印
        Case 1
                strWhereCategory = "学年学期 = '" + Forms![查找学习及综合测评成绩窗体]!选择学年学期 + "'"
                strWhereClassID = "班级 = '" + Forms![查找学习及综合测评成绩窗体]!选择班级 + "'"
                DoCmd.OpenReport "学生学习成绩统计总表", PrintMode, , strWhereCategory, , strWhereClassID
        Case 2
                strWhereCategory = "学年学期 = '" + Forms![查找学习及综合测评成绩窗体]!选择学年学期 + "'"
                strWhereClassID = "班级 = '" + Forms![查找学习及综合测评成绩窗体]!选择班级 + "'"
                DoCmd.OpenReport "学生综合测评成绩统计总表", PrintMode, , strWhereCategory, , strWhereClassID

    End Select
Exit_Preview_Click:
    Exit Sub

Err_Preview_Click:
    Resume Exit_Preview_Click

End Sub


谢谢啦

fan0217

要结合实际的例子才能解答，比如Me!报表打印我们就不知道是什么东东了。

flybutt2

我以把数据库传上去了，请专家给看看。谢谢。

一点通

将+号改为&试一下

flybutt2

不行，一点通老师。

你看看上面的例子，如何选择 2004-2005学年度第一学期 ，在选择班级 04级5班，结果看到的查询结果还是包含了所有学生的记录。

flybutt2

请帮忙看看。

青青

    Select Case Me!报表打印
        Case 1
strWhereCategory = "[学年学期] = '" & Forms![查找学习及综合测评成绩窗体]!选择学年学期 & "'"
strWhereClassID = strWhereCategory & "and [班级] = '" & Forms![查找学习及综合测评成绩窗体]!选择班级 & "'"
                DoCmd.OpenReport "学生学习成绩统计总表", PrintMode, , , , strWhereClassID
......

flybutt2

太好了，问题解决了，谢谢你，青青 老师。