请教各位大侠这段代码的意思，请帮忙解释下每条代码 - VB6论坛

已结贴√ 问题点数：10 回复次数：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.班级")
     If DataEnv1.rsCommand1.EOF = True Then
            sssss = MsgBox("没有当前记录！", vbOKOnly + vbExclamation, "警告")
      Exit Sub
    End If
    DataReportclass.Show 1
可不可以帮忙解释下这几个语句，谢谢啊
帮忙逐字解释下这段代码谢谢

搜索更多相关主题的帖子: 代码　