Dim e As RequestEventArgs = args(0)
Dim arr As new jarray
Dim i As Integer
Dim g As New sqlGroupTableBuilder("xsxx","学生信息")
g.C
g.Filter="学校名称='" & e.values("dwmc") & "' and 状态 like '%在读%'"
g.Groups.AddDef("班级","班级")
g.Totals.AddExp("在读","case when 残疾就读情况='残疾送教上门' then 0 else 1 end")
g.Totals.AddExp("送教","case when 残疾就读情况='残疾送教上门' then 1 else 0 end")
g.Subtotal = True
Dim dt As DataTable = g.build(True)
Dim r As DataRow = dt.AddNew
r("班级")="合计"
r("在读")=dt.Compute("Sum(在读)")
r("送教")=dt.Compute("Sum(送教)")
For Each dr As DataRow In dt.DataRows
arr.add(new jobject)
arr(i)("班级")=dr("班级").Tostring
arr(i)("在读")=dr("在读").Tostring
arr(i)("送教")=dr("送教").Tostring
i=i+1
Next
Dim obj As new jobject
obj("code")=0
obj("msg")="ok"
obj("count")=dt.DataRows.Count
obj("data")=arr
e.writestring(compressjson(obj))
e.Handled=True
我这样是可以了，但不晓得在服务上多用户是否会出问题
加好友 
发短信
Post By：2021/10/28 21:42:00 [显示全部帖子]
此主题相关图片如下：qq图片20211028214125.png