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("磅差") 数据的绝对值，改该怎么判断
加好友 
发短信
Post By：2021/12/5 10:32:00 [显示全部帖子]
