Foxtable(狐表)用户栏目专家坐堂 → [求助]关于四舍五入的问题


  共有2103人关注过本帖树形打印复制链接

主题:[求助]关于四舍五入的问题

帅哥哟,离线,有人找我吗?
sjx71
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:476 积分:4602 威望:0 精华:0 注册:2013/5/22 15:32:00
[求助]关于四舍五入的问题  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1249 积分:9474 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2017/3/12 11:16:00 [只看该作者]

dr("单价") = Round2(dr("金额") / dr("数量"))

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/12 20:17:00 [只看该作者]

可以改成

 

dr("单价") = Format(dr("金额") / dr("数量"), "0.00")


 回到顶部