主题：单列 单行合计，除以总数得到百分比

比如

 

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

 

没明白你的意思。做个例子发上来测试。说明你要做到的效果。