请教"交叉表数据"可以设置交叉表数据格式吗?如下表,对金额进行统计,
数字要求设置千分符
|
银行 |
金额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编辑过]
加好友 
发短信
Post By：2015/9/26 21:57:00 [显示全部帖子]
