- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于四舍五入的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97428)
-- 发布时间：2017/3/12 10:24:00
-- [求助]关于四舍五入的问题
程序中表A中有金额、数量、单价列，如果有金额和数量列，希望可以自动计算单价并且保留两位小数。
怎么写DataColChanged事件程序，用Convert 会报错
请各位老师指点，谢谢！
Select Case e.DataCol.Name
Case "金额","数量"
Dim dr As DataRow = e.DataRow
If dr("金额") > 0 And dr("数量") > 0 Then
’dr("单价") = dr("金额") / dr("数量")
dr("单价") = convert(dr("金额") / dr("数量") *100,\'system.int64\') /100
End If
End Select
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:四舍五入.foxdb |
此主题相关图片如下：四舍五入.png
-- 发布时间：2017/3/12 11:16:00
--
dr("单价") = Round2(dr("金额") / dr("数量"))
-- 发布时间：2017/3/12 20:17:00
--
可以改成
dr("单价") = Format(dr("金额") / dr("数量"), "0.00")