- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 老师好！交叉统计中，按月统计金额以千分位显示，怎样设置？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71079)
-- 发布时间：2015/7/4 15:26:00
-- 老师好！交叉统计中，按月统计金额以千分位显示，怎样设置？
老师好！交叉统计中，按月统计金额以千分位显示，怎样设置？
-- 发布时间：2015/7/4 15:31:00
--
我所看到的例子都是按具体的列名设的：DataTables("表A").DataCols("ddd").SetFormat("#0.00%")\'保留二位小数、千分位
可是我的列名太多，要统一设为千分位显示，请教一下老师！
此主题相关图片如下：列名.png
此主题相关图片如下：列名.png-- 发布时间：2015/7/4 15:33:00
--
补图
-- 发布时间：2015/7/4 15:34:00
--
第二次再补上。
此主题相关图片如下：列名2.png
-- 发布时间：2015/7/4 15:35:00
--
For Each c As DataCol In DataTables("表名").DataCols
If c.isnumeric Then
c.SetFormat("#0.00%")
End If
Next
-- 发布时间：2015/7/4 15:35:00
--
循环呗
-- 发布时间：2015/7/4 15:37:00
--
我的代码如下：
\'分月客户业绩
Dim gt1 As New CrossTableBuilder("客户分月业绩", DataTables("历史销售"))
gt1.HGroups.AddDef("往来单位")
gt1.HGroups.AddDef("省")
gt1.HGroups.AddDef("单据类型")
gt1.VGroups.AddDef("单据日期", DateGroupEnum.Year, "{0}年")
gt1.VGroups.AddDef("单据日期", "{0}")
gt1.Totals.AddDef("销售金额")
gt1.HorizontalTotal = True
gt1.VerticalTotal = True
gt1.Build()
MainTable = Tables("客户分月业绩")
Tables("客户分月业绩").AutoSizeCols() \'设置自动列宽
Tables("客户分月业绩").Cols("往来单位").Width = 90\'指定列的列宽
Tables("客户分月业绩").Cols("省").Width = 40\'指定列的列宽
-- 发布时间：2015/7/4 15:38:00
--
For Each c As DataCol In DataTables("表名").DataCols
If c.isnumeric Then
c.SetFormat("#,###")
End If
Next
-- 发布时间：2015/7/4 15:46:00
-- 谢谢狐爸的指引：按月统计金额的千分位显示！
太好了！谢谢狐爸！