只能这样吗?
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()