主题：[求助]交叉统计垂直占比

是有点问题，要用代码处理一下。

Dim g As New CrossTableBuilder("统计表1", DataTables("交叉统计测试"))
g.HGroups.AddDef("商品")
g.HGroups.AddDef("品名")
g.VGroups.AddDef("尺寸名")
g.Totals.AddDef("数量", "数量")
g.VerticalTotal = True
g.VerticalProportion = True
g.Build()

For Each c As Col In Tables("统计表1").Cols
    If c.Caption Like "*占比" Then
        Dim name As String = c.name.Replace("vp", "")
        Dim sum As Double = Tables("统计表1").Compute("sum(" & name & ")", "商品 <> '合计'")
        For Each r As Row In Tables("统计表1").Rows
            r(c.name) = r(name) / sum
        Next
    End If
   
Next
MainTable = Tables("统计表1")

 水平份额直接写

Dim g As New CrossTableBuilder("统计表1", DataTables("交叉统计测试"))
g.HGroups.AddDef("商品")
g.HGroups.AddDef("品名")
g.VGroups.AddDef("尺寸名")
g.Totals.AddDef("数量", "数量")
g.VerticalTotal = True
g.VerticalProportion = True
g.HorizontalProportion = True
g.Build()

For Each c As Col In Tables("统计表1").Cols
    If c.Caption Like "*占比" Then
        Dim name As String = c.name.Replace("vp", "")
        Dim sum As Double = Tables("统计表1").Compute("sum(" & name & ")", "商品 <> '合计'")
        For Each r As Row In Tables("统计表1").Rows
            r(c.name) = r(name) / sum
        Next
    End If
   
Next
MainTable = Tables("统计表1")

 你查看一下生成表的表结构就知道了

 水平份额，就是先循环每一列，合计总额，然后再逐列计算。

http://www.foxtable.com/help/topics/0193.htm