主题：[求助]导出临时表的小数位数

对于原有数据，小数位数只影响显示格式，并不会改变真实的值。

你可以在命令窗口处理一下：

For Each dr As  DataRow in DataTables("xxx").DataRows

     if dr.IsNull("某列") = False Then

           dr("某列")  = Math.Round(dr("某列"),2)

     End If

Next

DataTables("xxx").Save()

搞定。谢谢！但多列的怎么处理？

只能这样吗？

For Each dr1 As  DataRow In DataTables( value & tjnj & "级有效分").DataRows
     If dr1.IsNull("平均分") = False Then
          dr1("平均分")  = Math.Round(dr1("平均分"),2)
     End If
     If dr1.IsNull("标准差") = False Then
          dr1("标准差")  = Math.Round(dr1("标准差"),2)
     End If
     If dr1.IsNull("目标3") = False Then
          dr1("目标3")  = Math.Round(dr1("目标3"),0)
     End If
     If dr1.IsNull("目标6") = False Then
          dr1("目标6")  = Math.Round(dr1("目标6"),0)
     End If
     If dr1.IsNull("目标9") = False Then
           dr1("目标9")  = Math.Round(dr1("目标9"),0)
     End If
     If dr1.IsNull("目标12") = False Then
           dr1("目标12")  = Math.Round(dr1("目标12"),0)
     End If
Next
DataTables( value & tjnj & "级有效分").Save()

Dim nms() As String = {"A1","A2","A3","A4"}
For each nm As Sring in nms
    For Each dr As DataRow In DataTables("xxx").DataRows
        If dr.IsNull(nm) = False Then
            dr(nm) = Math.Round(dr(nm),2)
        End If
    Next
Next
DataTables("xxx").Save()

搞定。谢谢！