Dim SQL1,SQL2, ep1,ep2 As String
ep1= "sum(iif(缴费项目='餐费',1,0)) As Wc ,sum(iif(缴费项目='车费',1,0)) As js"
ep2 = "IIF(Wc = 0,'','√') As 午餐 ,IIF(js = 0,'','√') As 接送,"
ep2+ = "IIF(Wc+Js = 0,'绿牌',IIF(Wc + Js = 1,'黄牌','红牌')) as 校牌颜色"
SQL1 = "select 学期,班级,学生姓名," & ep1 & " from {收费信息}"
SQL1+ = " Where 学期='2014年(春)' Group by 学期,班级,学生姓名"
SQL2 = "Select 学期,班级,学生姓名 ," & ep2 & " From (" & SQL1 & ")"
t2.StopRedraw
t2.Fill(SQL2,"", True)
t2.ResumeRedraw
加好友 
发短信
Post By：2014/5/24 22:41:00 [显示全部帖子]
