Select Case e.DataCol.Name
Case "其中_管理费率","利润费率"
Dim dr As DataRow = e.DataRow
If dr.IsNull("其中_管理费率") OrElse dr.IsNull("利润费率") Then
dr("其中_管理费") = Round2((dr("其中_人工费") + dr("其中_机具费")) * dr("其中_管理费率"),2)
dr("利润") = Round2((dr("其中_人工费") + dr("其中_机具费")) * dr("利润费率"),2)
dr("基价") = dr("其中_人工费") + dr("其中_材料费") + dr("其中_机具费") + dr("其中_管理费")
dr("综合单价") = dr("基价") + dr("利润")
Else
dr("其中_管理费") = Nothing
dr("利润") = Nothing
dr("基价") = dr("其中_人工费") + dr("其中_材料费") + dr("其中_机具费") + dr("其中_管理费")
dr("综合单价") = dr("基价") + dr("利润")
End If
End Select
加好友 
发短信
Post By：2022/5/5 21:39:00 [显示全部帖子]
此主题相关图片如下：微信图片_20220505213657.png