以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  交叉表数据格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75098)
--  作者：laijiafu
--  发布时间：2015/9/26 21:57:00
--  交叉表数据格式
请教"交叉表数据"可以设置交叉表数据格式吗?如下表,对金额进行统计,数字要求设置千分符

银行 金额1 金额2 金额合计
成都 80000 80000
小计  80000 0 80000
存款 成都 61190 61190
存款 建行 134098 134098
小计 存款 0 195288 195288
黄金 交通 26840 26840
小计 黄金 26840 0 26840
基金 交通 62000 62000
小计 基金 62000 0 62000
借款 CC 50000 50000
借款 AA 10000 10000
小计 借款 0 60000 60000
理财 建行 65000 65000
理财 交通 890000 890000
理财 中国 150000 150000
小计 理财 1040000 65000 1105000
总计 1208840 320288 1529128
 
 
上表代码:

Dim g As New CrossTableBuilder("日记_金额统计", DataTables("日记帐"), "[状态]=\'有效\'")
g.HGroups.AddDef("类型") \'添加客户列用于水平分组
g.HGroups.AddDef("银行") \'添加客户列用于水平分组
g.VGroups.AddDef("保管")  \'添加产品列用于垂直分组
g.Totals.AddDef("金额",Format("金额","n")) \'添加数量列用于统计

g.HorizontalTotal = True \'水平方向是否自动汇总
g.VerticalTotal = True \'垂直方向是否自动汇总

g.Decimals = 2 \'设置统计结果要保留的小数位数
g.Filter = "[状态]=\'有效\'"
g.Subtotal = True \'设为True,将对交叉统计结果进行二次统计,生成汇总模式
g.Build() \'生成统计表
MainTable = Tables("日记_金额统计")\'打开生成的统计表

 
 
但没法设置金额的千分符格式代码,求高手指教,谢谢!
[此贴子已经被作者于2015/9/27 21:45:27编辑过]
--  作者：y2287958
--  发布时间：2015/9/26 22:18:00
--  
统计后再对相关列进行格式化
--  作者：大红袍
--  发布时间：2015/9/28 9:46:00
--  
for each c as col in tables("日记_金额统计").Cols
    If c.IsNumeric Then
        c.DataCol.SetFormat("#,###")
    End If
Next