Foxtable(狐表)用户栏目专家坐堂 → 统计表添加合计


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

主题:统计表添加合计

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


加好友 发短信
等级:童狐 帖子:203 积分:1728 威望:0 精华:0 注册:2018/8/23 14:16:00
统计表添加合计  发帖心情 Post By:2018/11/5 9:04:00 [只看该作者]

    Dim g As New CrossTableBuilder("统计表1", DataTables("销售明细"))
    g.Filter=Filter
    g.HGroups.AddDef("仓库")
    g.VGroups.AddDef(lx.Text)
    g.Totals.AddDef("数量", "数量")
    Tables("各店销售分析_销售分析").DataSource  = g.BuildDataSource

生成的表格最底下需要加合计,最右边需要加一个总计
[此贴子已经被作者于2018/11/5 9:18:48编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/5 9:19:00 [只看该作者]

方法一:

 

Dim g As New CrossTableBuilder("统计表1", DataTables("销售明细"))
g.Filter=Filter
g.HGroups.AddDef("仓库")
g.VGroups.AddDef(lx.Text)
g.Totals.AddDef("数量", "数量")
g.VerticalTotal = True
Tables("各店销售分析_销售分析").DataSource  = g.BuildDataSource


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/5 9:21:00 [只看该作者]

方法二:

 

Dim g As New CrossTableBuilder("统计表1", DataTables("销售明细"))
g.Filter=Filter
g.HGroups.AddDef("仓库")
g.VGroups.AddDef(lx.Text)
g.Totals.AddDef("数量", "数量")
Dim t As Table = Tables("各店销售分析_销售分析")
t.DataSource  = g.BuildDataSource
For Each c As Col In t.Cols
    If c.IsNumeric Then
        c.GrandTotal = True
    End If
Next
t.GrandTotal = True


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


加好友 发短信
等级:童狐 帖子:203 积分:1728 威望:0 精华:0 注册:2018/8/23 14:16:00
  发帖心情 Post By:2018/11/5 9:25:00 [只看该作者]

以下是引用有点甜在2018/11/5 9:21:00的发言:

方法二:

 

Dim g As New CrossTableBuilder("统计表1", DataTables("销售明细"))
g.Filter=Filter
g.HGroups.AddDef("仓库")
g.VGroups.AddDef(lx.Text)
g.Totals.AddDef("数量", "数量")
Dim t As Table = Tables("各店销售分析_销售分析")
t.DataSource  = g.BuildDataSource
For Each c As Col In t.Cols
    If c.IsNumeric Then
        c.GrandTotal = True
    End If
Next
t.GrandTotal = True


谢谢


 回到顶部