If DataEnv1.rsCommand1.State = adStateOpen Then
     DataEnv1.rsCommand1.Close
    End If
     DataEnv1.rsCommand1.Open printstr
     If DataEnv1.rsCommand1.EOF = True Then
            sssss = MsgBox("没有当前记录！", vbOKOnly + vbExclamation, "警告")
      Exit Sub
    End If
    DataReportclass.Show 1
   Case "all"
     If DataEnv1.rsCommand1.State = adStateOpen Then
     DataEnv1.rsCommand1.Close
    End If
     DataEnv1.rsCommand1.Open ("select xj.学号,xj.姓名,xj.性别,xj.班级,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注,class.专业 from xj inner join class on xj.班级=class.班级")
     If DataEnv1.rsCommand1.EOF = True Then
            sssss = MsgBox("没有当前记录！", vbOKOnly + vbExclamation, "警告")
      Exit Sub
    End If
    DataReportclass.Show 1
可不可以帮忙解释下这几个语句，谢谢啊
帮忙逐字解释下这段代码 谢谢

报表？？ 不熟悉，一般都是使用自己画图报表。灵活。

If DataEnv1.rsCommand1.State = adStateOpen Then      '如果打开，
     DataEnv1.rsCommand1.Close                       '那么关闭
    End If
     DataEnv1.rsCommand1.Open printstr               '打开，
     If DataEnv1.rsCommand1.EOF = True Then          '是否没记录
            sssss = MsgBox("没有当前记录！", vbOKOnly + vbExclamation, "警告")   '是,提示,
      Exit Sub                      '退出过程
    End If
    DataReportclass.Show 1       '显示东东
   Case "all"                   '条件选择分支,前面还有代码
     If DataEnv1.rsCommand1.State = adStateOpen Then    '同样,是否打开,
     DataEnv1.rsCommand1.Close
    End If
     DataEnv1.rsCommand1.Open ("select xj.学号,xj.姓名,xj.性别,xj.班级,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注,class.专业 from xj inner join class on xj.班级=class.班级")     '打开SQL
     If DataEnv1.rsCommand1.EOF = True Then    '是否到底
            sssss = MsgBox("没有当前记录！", vbOKOnly + vbExclamation, "警告")   '提示
      Exit Sub    '退出过程
    End If
    DataReportclass.Show 1     '显示东东

谢谢了 ，下次继续帮我下啊，我搞毕业设计呢