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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何用代码设置固定小数位数

共有7672人关注过本帖树形打印复制链接主题：如何用代码设置固定小数位数

9EQ98

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：521 积分：4784 威望：0 精华：0 注册：2014/1/16 16:55:00

如何用代码设置固定小数位数 发帖心情

Post By：2022/9/8 12:31:00 [只看该作者]

请问：如何用代码设置固定小数位数？

DataTables("表A").DataCols("第1列").Decimals = 3

DataTables("表A").DataCols("第1列").????? = True

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112377 积分：572147 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/8 13:31:00 [只看该作者]

DataTables("表A").DataCols("第1列").Decimals = 3

DataTables("表A").DataCols("第1列").SetFormat("0.000")

jikebon

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：26 积分：472 威望：0 精华：0 注册：2022/7/28 0:39:00

Post By：2022/12/22 1:30:00 [只看该作者]

用代码批量固定小数位数，旁路的方法是在表属性-事件-AffterloadTableSetting中设置：

For Each dc As Col In e.Table.Cols

If dc.DataCol.IsNumeric Then

dc.DataCol.Decimals=2 '固定小数位数为2位有效数字

End If

若要对现有数据重新进行位数截断，可用重载方法，在命令窗口中执行命令：

Dim i As Integer=0

For Each t As DataTable In DataTables

For Each dr As DataRow In t.datarows

dr.load()

i=i+1

StatusBar.Refresh

StatusBar.Message1= "正在重载"

StatusBar.ProgressBar.Visible =True

StatusBar.ProgressBar.Maximum=DataTables.count

StatusBar.ProgressBar.Minimum=0

StatusBar.ProgressBar.Value = i

StatusBar.Message2= "已重载" & i & "个表."

[此贴子已经被作者于2022/12/22 2:13:23编辑过]

主题：如何用代码设置固定小数位数