以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计表添加合计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127076)
--  作者：zaq3574020
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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
--  作者：有点甜
--  发布时间：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
--  发布时间：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


谢谢