以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单列 单行合计，除以总数得到百分比  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127081)
--  作者：zaq3574020
--  发布时间：2018/11/5 11:02: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 \'垂直汇总
    g.HorizontalTotal = True \'水平汇总
    Tables("各店销售分析_销售分析").DataSource  = g.BuildDataSource

需要加一行一列，用来显示单行单列除以总数得到的百分比
With DataTables("窗口1_Table1").DataCols  \'用表达式列计算库存数据
    .Add("库存_金额",Gettype(Double), "") （这里要怎么写）
End With
--  作者：有点甜
--  发布时间：2018/11/5 11:58:00
--  

比如

 

Dim g As New CrossTableBuilder("统计表1", DataTables("表C"))
g.HGroups.AddDef("仓库")
g.VGroups.AddDef("品类")
g.Totals.AddDef("数量")
g.VerticalTotal= True \'垂直汇总
g.HorizontalTotal = True \'水平汇总
\'g.HorizontalProportion = True
g.VerticalProportion = True
g.build
Dim t As Table = Tables("统计表1")


 

http://www.foxtable.com/webhelp/scr/0678.htm

 

[此贴子已经被作者于2018/11/5 11:58:39编辑过]
--  作者：zaq3574020
--  发布时间：2018/11/5 17:28:00
--  
以下是引用有点甜在2018/11/5 11:58:00的发言：

比如

 

Dim g As New CrossTableBuilder("统计表1", DataTables("表C"))
g.HGroups.AddDef("仓库")
g.VGroups.AddDef("品类")
g.Totals.AddDef("数量")
g.VerticalTotal= True \'垂直汇总
g.HorizontalTotal = True \'水平汇总
\'g.HorizontalProportion = True
g.VerticalProportion = True
g.build
Dim t As Table = Tables("统计表1")


 

http://www.foxtable.com/webhelp/scr/0678.htm

可以只要最后的合计的 百分比吗

[此贴子已经被作者于2018/11/5 11:58:39编辑过]
--  作者：有点甜
--  发布时间：2018/11/5 19:04:00
--  
没明白你的意思。做个例子发上来测试。说明你要做到的效果。