以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于后台生成统计表给前端  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172747)

--  作者:刘林
--  发布时间:2021/10/28 21:42:00
--  关于后台生成统计表给前端

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20211028214125.png
图片点击可在新窗口打开查看
老师,请问后台生成统计表发给前端出现这个提示,正确的应该怎么改,谢谢




[此贴子已经被作者于2021/10/28 21:43:58编辑过]

--  作者:有点蓝
--  发布时间:2021/10/28 21:52:00
--  
参考:http://www.foxtable.com/webhelp/topics/1910.htm
--  作者:刘林
--  发布时间:2021/10/28 22:07:00
--  
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")
Dim dt As DataTable = g.build(True)
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

老师,这样是可以了,谢谢,如果后生将在班和送教列汇总再转给后前端这怎么做

--  作者:刘林
--  发布时间:2021/10/28 22:23:00
--  
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

我这样是可以了,但不晓得在服务上多用户是否会出问题

--  作者:有点蓝
--  发布时间:2021/10/28 22:32:00
--  
临时表只在自己的事件里有效,不会冲突的