以文本方式查看主题 - 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 -- 关于后台生成统计表给前端 ![]() ![]() 老师,请问后台生成统计表发给前端出现这个提示,正确的应该怎么改,谢谢 [此贴子已经被作者于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 -- 临时表只在自己的事件里有效,不会冲突的 |