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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  小数位数的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92676)

--  作者：天蝉一线
--  发布时间：2016/11/10 9:47:00
--  小数位数的问题
我的外部表的金额列属性设置为6位小数，用外部表生成的临时表为什么显示的是4位小数，怎么能将临时表的金额也调整为6位小数。

--  作者：有点蓝
--  发布时间：2016/11/10 9:56:00
--
参考：http://www.foxtable.com/webhelp/scr/1659.htm

--  作者：天蝉一线
--  发布时间：2016/11/10 10:31:00
--
不行呀，生成的目录树结构表金额还是4位数，没变过来

--  作者：有点蓝
--  发布时间：2016/11/10 11:15:00
--
怎么生成目录树的，代码看看

--  作者：天蝉一线
--  发布时间：2016/11/10 13:25:00
--

Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",dt4)
b.Groups.AddDef("记录编号")
b.Groups.AddDef("下达年度")
b.Groups.AddDef("资金来源")
b.Groups.AddDef("预算下达部门")
b.Groups.AddDef("预算实施部门")
b.Groups.AddDef("预算资金性质")
b.Groups.AddDef("一级科目")
b.Groups.AddDef("二级科目")
b.Groups.AddDef("三级科目")
b.Groups.AddDef("四级科目")
b.Groups.AddDef("五级科目")
b.Groups.AddDef("六级科目")
b.Groups.AddDef("七级科目")
b.Totals.AddDef("预算下达金额",Aggreg ateEnum.sum,"预算下达金额")
b.Groups.AddDef("备注")
dt = b.Build(False)
dt.DataCols("预算下达金额").SetFormat("0.000000")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
trv.BuildTree(dt,"预算资金性质|一级科目|二级科目|三级科目|四级科目|五级科目|六级科目|七级科目")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
Dim yszjxz As String = nd.DataRow("预算资金性质")
Dim km1 As String = nd.DataRow("一级科目")
Dim km2 As String = nd.DataRow("二级科目")
Dim km3 As String = nd.DataRow("三级科目")
Dim km4 As String = nd.DataRow("四级科目")
Dim km5 As String = nd.DataRow("五级科目")
Dim km6 As String = nd.DataRow("六级科目")
Dim km7 As String = nd.DataRow("七级科目")
Select Case nd.Level
Case 0
nd.Text = nd.text & "------------" & dt.Compute("Sum(预算下达金额)","预算资金性质 = \'" & yszjxz & "\'") & "万元"

Case 1
nd.Text = nd.text & "------------" & dt.Compute("Sum(预算下达金额)","预算资金性质=\'" & yszjxz & "\'and 一级科目=\'" & km1 & "\'") & "万元"
Case 2
nd.Text = nd.text & "------------" & dt.Compute("Sum(预算下达金额)","预算资金性质=\'" & yszjxz & "\'and 一级科目=\'" & km1 & "\'and 二级科目 =\'" & km2 & "\'") & "万元"
Case 3
nd.Text = nd.text & "------------" & dt.Compute("Sum(预算下达金额)","预算资金性质=\'" & yszjxz & "\'and 一级科目=\'" & km1 & "\'and 二级科目 =\'" & km2 & "\' and 三级科目 = \'" & km3 & "\'") & "万元"
Case 4
nd.Text = nd.text & "------------" & dt.Compute("Sum(预算下达金额)","预算资金性质=\'" & yszjxz & "\'and 一级科目=\'" & km1 & "\'and 二级科目 =\'" & km2 & "\'and 三级科目= \'" & km3 & "\'and 四级科目= \'" & km4 & "\'") & "万元"
Case 5
nd.Text = nd.text & "------------" & dt.Compute("Sum(预算下达金额)","预算资金性质=\'" & yszjxz & "\'and 一级科目=\'" & km1 & "\'and 二级科目 =\'" & km2 & "\'and 三级科目= \'" & km3 & "\'and 四级科目= \'" & km4 & "\'and 五级科目= \'" & km5 & "\'") & "万元"
Case 6
nd.Text = nd.text & "------------" & dt.Compute("Sum(预算下达金额)","预算资金性质=\'" & yszjxz & "\'and 一级科目=\'" & km1 & "\'and 二级科目 =\'" & km2 & "\'and 三级科目= \'" & km3 & "\'and 四级科目= \'" & km4 & "\'and 五级科目= \'" & km5 & "\'and 六级科目= \'" & km6 & "\'") & "万元"
Case 7
nd.Text = nd.text & "------------" & dt.Compute("Sum(预算下达金额)","预算资金性质=\'" & yszjxz & "\'and 一级科目=\'" & km1 & "\'and 二级科目 =\'" & km2 & "\'and 三级科目= \'" & km3 & "\'and 四级科目= \'" & km4 & "\'and 五级科目= \'" & km5 & "\'and 六级科目= \'" & km6 & "\'and 七级科目= \'" & km7 & "\'") & "万元"
End Select
Next
trv.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(预算下达金额)") & "万元)",0)
trv.ResumeRedraw
Trv.ExpandAll()

--  作者：有点蓝
--  发布时间：2016/11/10 14:48:00
--

DataTables("统计表1").DataCols("物料编号").SetFormat("0.000000")

Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",dt4)
b.Groups.AddDef("记录编号")
b.Groups.AddDef("下达年度")
b.Groups.AddDef("资金来源")
b.Groups.AddDef("预算下达部门")
b.Groups.AddDef("预算实施部门")
b.Groups.AddDef("预算资金性质")
b.Groups.AddDef("一级科目")
b.Groups.AddDef("二级科目")
b.Groups.AddDef("三级科目")
b.Groups.AddDef("四级科目")
b.Groups.AddDef("五级科目")
b.Groups.AddDef("六级科目")
b.Groups.AddDef("七级科目")
b.Totals.AddDef("预算下达金额",Aggreg ateEnum.sum,"预算下达金额")
b.Groups.AddDef("备注")
b.Decimals = 6
dt = b.Build(False)
dt.DataCols("预算下达金额").SetFormat("0.000000")

Decimals：        整数型，用于设置统计结果要保留的小数位数，默认为4位。