用代码批量固定小数位数，旁路的方法是在表属性-事件-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编辑过]
加好友 
发短信
Post By：2022/12/22 1:30:00 [显示全部帖子]
