主题：求保留小数代码

如何用代码把所有表中为双精度类型的列保留两位小数呢？？

设置小数位数：

http://www.foxtable.com/help/topics/0050.htm

 

 

我想用代码把100多张表的列都 统一改下，哎

用代码改的好像保存不了，放在AfterOpenProject比较合适。

 

所有数值列：

For Each dt As DataTable In DataTables
    If dt.Type = 1 OrElse dt.Type = 3 Then
        For Each dc As DataCol In dt.DataCols
            If dc.IsNumeric Then
                dc.Decimals = 2
                dc.SetFormat("#0.00")
            End If
        Next
    End If
Next

 

单精度、双精度、高精度：

For Each dt As DataTable In DataTables
    If dt.Type = 1 OrElse dt.Type = 3 Then
        For Each dc As DataCol In dt.DataCols
            If dc.DataType.Name = "Double" OrElse dc.DataType.Name = "Single" OrElse dc.DataType.Name = "Decimal" Then
                dc.Decimals = 2
                dc.SetFormat("#0.00")
            End If
        Next
    End If
Next

 

谢谢，还成功了！！！