主题：统计

这个意思？

Dim cm1 As String = e.Form.Controls("combobox1").text
Dim year As Integer = cm1.Substring(0,4)
Dim ji As String = cm1.Substring(4,1)
Dim j As Integer
If ji = "春"
    j = 0
End If
If ji = "秋"
    j = 1
End If
year = year + j

Dim nj As String = "'初中" & year-4 & "级','小学" & year-7 & "级'" '排除的年级
msgbox(nj)
Dim sql As String = " Select *,floor(试卷数/30) As 大,Ceiling((试卷数 % 30)/5) As 小 from (Select a1.*,b.班数,(人数 + 班数 * 2) As 试卷数 from "
sql += " (Select 学校名称,年级,Count(学生姓名) As 人数 from 学生信息 where 年级 not in(" & nj & ") group by 学校名称,年级) As a1 Inner join "
sql += " (Select 学校名称,年级,Count(班级) As 班数 from (Select 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.ConnectionName = "180.183.105.50"
cmd.CommandText = sql
Dim dt1 As Table = e.Form.Controls("Table1").Table
dt1.DataSource= cmd.ExecuteReader

Dim cm1 As String = e.Form.Controls("combobox1").text
Dim year As Integer = cm1.Substring(0,4)
Dim ji As String = cm1.Substring(4,1)
Dim j As Integer
If ji = "春"
    j = 0
End If
If ji = "秋"
    j = 1
End If
year = year + j

Dim nj As String = ""
For i As Integer = year-3 To year
    nj &= "'初中" & i & "级',"
Next
For i As Integer = year-6 To year
    nj &= "'小学" & i & "级',"
Next

Dim sql As String = " Select *,floor(试卷数/30) As 大,Ceiling((试卷数 % 30)/5) As 小 from (Select a1.*,b.班数,(人数 + 班数 * 2) As 试卷数 from "
sql += " (Select 学校名称,年级,Count(学生姓名) As 人数 from 学生信息 where 年级 in(" & nj.trim(",") & ") group by 学校名称,年级) As a1 Inner join "
sql += " (Select 学校名称,年级,Count(班级) As 班数 from (Select distinct 学校名称,年级,班级 from 学生信息 where 年级 in(" & nj.trim(",") & ")) As a group by a.学校名称,a.年级) As b "
sql += " on a1.学校名称 = b.学校名称  And a1.年级 = b.年级) As c"

Dim cmd As new SQLCommand
cmd.ConnectionName = "180.183.105.50"
cmd.CommandText = sql
Dim dt1 As Table = e.Form.Controls("Table1").Table
dt1.DataSource= cmd.ExecuteReader

不能直接引用，你要这样写

(floor(试卷数/30)*30+Ceiling((试卷数 % 30)/5)*5) as 试卷征订数