Foxtable(狐表)用户栏目专家坐堂 → [求助]关于计算重置


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

主题:[求助]关于计算重置

帅哥,在线噢!
有点蓝
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106097 积分:539590 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/16 14:41:00 [只看该作者]

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "数量", "单价"
        SystemReady = False
        dr("金额") = dr("数量") * dr("单价")
        SystemReady = True
End Select
Select Case e.DataCol.Name
    Case "数量", "金额"
        SystemReady = False
        If dr("数量") = 0 Then
            dr("单价") = 0
        Else
            dr("单价") = dr("金额") / dr("数量") 
        End If
        SystemReady = True
End Select

 回到顶部
总数 21 上一页 1 2 3