Dim nj As String = "'初中2014级','小学2011级'" '排除的年级
Dim sql As String = " Sｅlect *,floor(试卷数/30) As 大,Ceiling((试卷数 % 30)/5) As 小 from (Sｅlect a1.*,b.班数,(人数 + 班数 * 2) As 试卷数 from "
sql += " (Sｅlect 学校名称,年级,Count(学生姓名) As 人数 from 学生信息 where 年级 not in(" & nj & ") group by 学校名称,年级) As a1 Inner join "
sql += " (Sｅlect 学校名称,年级,Count(班级) As 班数 from (Sｅlect distinct 学校名称,年级,班级 from 学生信息 where 年级 not in(" & nj & ")) As a group by a.学校名称,a.年级) As b "
sql += " on a1.学校名称 = b.学校名称 And a1.年级 = b.年级) As c"
Dim cmd As new SQLCommand
cmd.CoｎnectioｎName = "180.183.105.50"
cmd.CommandText = sql
Dim dt1 As Table = e.Form.Controls("Table1").Table
dt1.DataSource= cmd.ExecuteReader
加好友 
发短信
Post By：2017/2/20 20:49:00 [显示全部帖子]
