Dim a As New CrossTableBuilder("细分交叉统计",DataTables("外销货物明细表"))
a.HGroups.AddDef("出口编号") '按编号分组
a.VGroups.AddDef("产品英文名称") '按产品分组
a.Totals.AddDef("数量") '添加数量列用于统计
a.Totals.AddDef("金额") '添加金额列用于统计
a.VerticalTotal= True '垂直汇总
a.HorizontalTotal = True '水平汇总
a.Build
到命令窗口执行上面代码，然后打开这个表，再去查看表结构，看真正的列名
或者不用管列名，只要是数值列就统一设置
Tables("出口汇总_TableA").DataSource = a.BuildDataSource()
For Each c As DataCol In DataTables("出口汇总_TableA").DataCols
If c.IsNumeric Then
c..SetFormat("#,###.00")
End If
Next
加好友 
发短信
Post By：2018/9/14 22:10:00 [显示全部帖子]
