专家坐堂-交叉统计如何设置成会计格式，就是使用千分位和保留两位小数Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  交叉统计如何设置成会计格式，就是使用千分位和保留两位小数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25032)

--  作者：lihe60
--  发布时间：2012/10/29 20:33:00
--  交叉统计如何设置成会计格式，就是使用千分位和保留两位小数

Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))

b.HGroups.AddDef("客户") \'添加客户列用于水平分组

b.VGroups.AddDef("产品") \'添加产品列用于垂直分组

b.Totals.AddDef("数量") \'添加数量列用于统计
b.Totals.AddDef("金额") \'添加数量列用于统计
b.Build \'生成统计表
Maintable = Tables("统计表1") \'打开生成的统计表

统计结果：

--  作者：lihe60
--  发布时间：2012/10/29 20:34:00
--
这是帮助中交叉统计的例子。

--  作者：狐狸爸爸
--  发布时间：2012/10/29 20:43:00
--

Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
b.HGroups.AddDef("客户") \'添加客户列用于水平分组
b.VGroups.AddDef("产品") \'添加产品列用于垂直分组
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Totals.AddDef("金额") \'添加数量列用于统计
b.Build \'生成统计表
For Each dc As DataCol In DataTables("统计表1").DataCols
    If dc.IsNumeric Then
        dc.SetFormat("#,##0.00")
    End If
Next
MainTable = Tables("统计表1") \'打开生成的统计表