以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求数据的绝对值判断大小  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173548)
--  作者：张飞
--  发布时间：2021/12/5 10:32:00
--  求数据的绝对值判断大小
Select Case e.DataCol.Name
    Case "送货数量","过磅数量","磅差","允许磅差","检测含水率","标准含水率"
        If dr.IsNull("送货数量") OrElse dr.IsNull("过磅数量") Then
            dr("磅差") = Nothing
            dr("允许磅差") = Nothing
            dr("检测含水率") = Nothing
            dr("标准含水率") = Nothing
            dr("收货数量") = Nothing
        Else
            If dr("检测含水率") >= dr("标准含水率")  Then
                If dr("允许磅差") = 0 Then
                    dr("收货数量") = dr("过磅数量") * (1-(dr("检测含水率") - dr("标准含水率")))
                Else If dr("磅差") >= dr("送货数量") * dr("允许磅差")  Then
                    dr("收货数量") = dr("过磅数量") * (1-(dr("检测含水率") - dr("标准含水率")))
                Else
                    dr("收货数量") = dr("送货数量") * (1-(dr("检测含水率") - dr("标准含水率")))
                End If
            Else
                If dr("允许磅差") = 0 Then
                    dr("收货数量") = dr("过磅数量")
                Else If dr("磅差") >= dr("送货数量") * dr("允许磅差")  Then
                    dr("收货数量") = dr("过磅数量")
                Else
                    dr("收货数量") = dr("送货数量")
                End If
            End If
        End If
End Select



判断 dr("磅差") 数据的绝对值，改该怎么判断
--  作者：有点蓝
--  发布时间：2021/12/5 20:44:00
--  
参考：http://www.foxtable.com/webhelp/topics/1440.htm

Math.Abs(dr("磅差"))