以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  四舍五入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185003)

--  作者:shqpldczj
--  发布时间:2023/1/29 23:15:00
--  四舍五入
表属性datacolchanged计算的代码
Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "金额","税率","不含税价","税额"
        dr1("不含税价") = round2(dr1("金额") / ( 1+ dr1("税率")),2)
        dr1("税额") = round2(dr1("不含税价") * dr1("税率"),2)
End Select

和excel计算差异还是有2分钱,这个有办法解决吗?谢谢老师

--  作者:有点蓝
--  发布时间:2023/1/30 8:37:00
--  
请上传实例说明