以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 小数位保留两位  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129253)
--  作者：sanny
--  发布时间：2018/12/25 12:10:00
--  [求助] 小数位保留两位

版主，最扣值保留两位小数，怎么修改   e.DataRow("GSS_totalprice") = sum ？ 谢谢。

 

If e.DataCol.Name = "ShippingNo"  OrElse e.DataCol.Name = "Totalprice" Then
    Dim sum As Double= 0
    For Each dr As DataRow In DataTables("GSSInvoice").Select("ShippingNo=\'" & e.NewValue & "\'")
        sum += dr("Totalprice")
    Next
    e.DataRow("GSS_totalprice") = sum
End If

--  作者：有点甜
--  发布时间：2018/12/25 12:57:00
--  

 

e.DataRow("GSS_totalprice") = format(sum, "0.00")


 
--  作者：sanny
--  发布时间：2018/12/25 17:02:00
--  
版主， 这个是四舍五入的吗？谢谢。
--  作者：有点蓝
--  发布时间：2018/12/25 17:26:00
--  
试试就知道了