多出用到SQL
Dim SQL As String
Sel ect Case e.StripItem.Name
Case "学生基本信息"
SQL = "Se lect 学期,班级,学生姓名,性别,a.学生编号,学籍号,学生身份证号,出生日期,int(datediff('d',出生日期,Cdate(cstr(year(Date()))+'-08-31'))/365.25) as 年龄,民族,监护人姓名,iif(监护人姓名=父亲姓名, 父亲电话, iif(监护人姓名=母亲姓名,母亲电话,null)) As 监护人电话, iif(监护人姓名=父亲姓名, iif(性别='男', '父子', '父女'), iif(监护人姓名=母亲姓名, iif(性别='女', '母子', '母女'),null)) AS 与监护人关系,户籍省 + 户籍县 + 户籍镇 As 户籍地,暂住街道 + 暂住社区 As 暂住地 From {学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号 WHERE 学期 = '"& ary(3) &"' And 缴费项目 = '学费' And 缴费状态 = '已缴' Order By 学期,班级,b.学生编号"
If _UserGroup = "班主任" Then
SQL+ = "Where" & "班级" & "=" & "302"
End If
Case "学生午餐信息"
SQL = "Sel ect 学期,班级,学生姓名,性别,a.学生编号,暂住街道 + 暂住社区 As 暂住地 From {学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号 WHERE 学期 = '"& ary(3) &"' And 缴费项目 = '预缴餐费' And 缴费状态 = '已缴' Order By 学期,班级,b.学生编号
If _UserGroup = "班主任" Then
SQL+ = "Where" & "班级" & "=" & "302"
End If
Case "学生接送信息"
SQL = "Se lect b.学期,班级,学生姓名,性别,a.学生编号,父亲电话,母亲电话,车次,地点编号,b.接送地点 From ({学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号) Inner JOIN {车辆安排} c ON b.学期 = c.学期 And b.接送地点 = c.接送地点 WHERE b.学期 = '"& ary(3) &"' And 缴费项目 = '车费' And 缴费状态 = '已缴' Order By b.学期,班级,b.学生编号"
If _UserGroup = "班主任" Then
SQL+ = "Where" & "班级" & "=" & "302"
End If
Case "学生缴证信息"
SQL = "Sel ect b.学期,b.班级,学生姓名,性别,a.学生编号,出生日期,民族,缴证人,缴证日期,c.监护人姓名,iif(c.监护人姓名=父亲姓名,iif(性别='男', '父子', '父女'), iif(c.监护人姓名=母亲姓名, iif(性别='女', '母子', '母女'),null)) AS 与监护人关系,监护人身份证号,监护人暂住证号,社保号,参保日期,查询密码,参保月数,资助金额,户籍省+户籍县 As 户籍地,暂住街道+暂住社区 As 暂住地,监护人工作单位 From (({学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号) Inner JOIN {资助标准} k ON b.学期 = k.学期) Inner JOIN {缴证信息} c ON b.学期 = c.学期 And b.学生编号 = c.学生编号 WHERE b.学期 = '"& ary(3) &"' And 缴费项目 = '学费' And 缴费状态 = '已缴' ORDER BY b.班级,b.学生编号"
If _UserGroup = "班主任" Then
SQL+ = "Where" & "班级" & "=" & "302"
End If
End Select
t.Fill(SQL,"数据库",True)
[此贴子已经被作者于2018/1/27 11:18:50编辑过]