专家坐堂-临时表设置小数位数Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  临时表设置小数位数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128823)

--  作者：13861676007
--  发布时间：2018/12/15 21:20:00
--  临时表设置小数位数

Dim b1 As New GroupTableBuilder("统计表2",DataTables("固定资产明细表"))
b1.Groups.AddDef("分类")
b1.Totals.AddDef("购建原值")
b1.Totals.AddDef("残值")
b1.Totals.AddDef("本月计提折旧")
b1.Totals.AddDef("累计计提折旧")
b1.Totals.AddDef("净值")
Tables("固定资产汇总归集表_Table1").DataSource = b1.BuildDataSource()

请教老师，我想设置上述字段为2位小数，如何设置？

--  作者：y2287958
--  发布时间：2018/12/16 10:16:00
--
例如：DataTables("统计表2").DataCols("购建原值").SetFormat("0.00")

--  作者：有点甜
--  发布时间：2018/12/16 20:54:00
--

改成

Dim b1 As New GroupTableBuilder("统计表2",DataTables("固定资产明细表"))

b1.Groups.AddDef("分类")

b1.Totals.AddDef("购建原值")

b1.Totals.AddDef("残值")

b1.Totals.AddDef("本月计提折旧")

b1.Totals.AddDef("累计计提折旧")

b1.Totals.AddDef("净值")

Tables("固定资产汇总归集表_Table1").DataSource = b1.BuildDataSource()

Tables("固定资产汇总归集表_Table1").DataCols("购建原值").SetFormat("0.00")