- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何用代码设置固定小数位数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179774)
-- 发布时间：2022/9/8 12:31:00
-- 如何用代码设置固定小数位数
请问：如何用代码设置固定小数位数？
DataTables("表A").DataCols("第1列").Decimals = 3DataTables("表A").DataCols("第1列").????? = True
-- 发布时间：2022/9/8 13:31:00
--
http://www.foxtable.com/webhelp/topics/2046.htm
DataTables("表A").DataCols("第1列").Decimals = 3
DataTables("表A").DataCols("第1列").SetFormat("0.000")
-- 发布时间：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
Next
若要对现有数据重新进行位数截断，可用重载方法，在命令窗口中执行命令：
Dim i As Integer=0
For Each t As DataTable In DataTables
For Each dr As DataRow In t.datarows
dr.load()
Next
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 & "个表."
Next
[此贴子已经被作者于2022/12/22 2:13:23编辑过]