Foxtable(狐表)用户栏目专家坐堂 → SQLGroupTableBuilder问题


  共有4681人关注过本帖树形打印复制链接

主题:SQLGroupTableBuilder问题

帅哥哟,离线,有人找我吗?
qaz17909
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:802 积分:9093 威望:0 精华:0 注册:2017/1/26 14:38:00
SQLGroupTableBuilder问题  发帖心情 Post By:2022/4/15 14:57:00 [只看该作者]

 在HttpRequest中返回统计数据,以下两段代码,测试第一段代码可以返回统计数据,但是无法返回汇总行的值,第二段代码无法返回统计数据,这个应该怎么改,希望能返回含有汇总行的所有数据。
代码一:
Dim g As New SQLGroupTableBuilder("统计表1", "查询")
g.ConnectionName = wbsjy
g.Groups.AddDef("类别")
g.Totals.AddDef("数量")
g.Subtotal = True
Dim dt As DataTable = g.Build(True) '生成一个DataTable
Dim arr As new JArray
For Each dr As DataRow In dt.DataRows
    Dim obj As new JObject
    For Each dc As DataCol In dt.DataCols
        obj(dc.Name) = dr(dc.Name).ToString()
    Next
    arr.Add(obj)
Next
e.WriteString(CompressJson(arr))

代码二:
Dim g As New SQLGroupTableBuilder("统计表1", "查询")
g.ConnectionName = wbsjy
g.Groups.AddDef("类别")
g.Totals.AddDef("数量")
g.Subtotal = True
g.build()
Dim t As Table = Tables("统计表1")
Dim arr As new JArray
For i As Integer = 0 To t.Rows.Count(True)-1
    Dim obj As new JObject
    For Each c As Col In t.Cols
        obj(c.Name) = r(c.Name).ToString()
    Next
    arr.Add(obj)
Next
e.WriteString(CompressJson(arr))

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/15 15:10:00 [只看该作者]

汇总要另外使用代码统计,比如

Dim jo As new JObject
 jo("类别") = "合计"
 jo("数量") = dt.compute("sum(数量)")
arr.Add(jo)
e.WriteString(CompressJson(arr))

 回到顶部