小数位数问题

把格式改成固定数字,小数点精确到两位即可.如果出现误差,那么是ACCESS四舍五入的误差造成.可用这个函数,在论坛上可以搜索得到

Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double
   
    '执行Round()函数，有可能进位
    '也有可能舍去

    Dim strFormatString As String '格式化字符串
   
    '如果是“0”，则返回“0”，否则进行适当的格式化:
    If dblInput <> 0 Then
        strFormatString = "#." & String(intDecimals, "#")
        RoundToLarger = Format(dblInput, strFormatString)
    Else
        RoundToLarger = 0
    End If
   
End Function