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
可不可以帮忙解释下这几个语句，谢谢啊

请教下 有没有人帮忙下

好啦,你慢慢看另一贴吧.

好啊 ，谢谢啦