主题：[求助]关于传统四舍五入的问题

 如果是数据列的四舍五入，这样

Select Case e.DataCol.name
    Case "单价", "水量"
        If e.newvalue <> Nothing Then
            e.newvalue = Round2(e.newvalue, 2)
        End If
End Select