以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何用代码设置固定小数位数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179774) |
-- 作者:9EQ98 -- 发布时间: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")
|
-- 作者:jikebon -- 发布时间: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编辑过]
|