Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "其中_管理费率", "其中_机具费", "其中_人工费"
If dr.IsNull("其中_管理费率") Then
dr("其中_管理费") = Nothing
Else
dr("其中_管理费") = Round2((dr("其中_人工费") + dr("其中_机具费")) * dr("其中_管理费率"), 2)
End If
End Select
Select Case e.DataCol.Name
Case "利润费率", "其中_机具费", "其中_人工费"
If dr.IsNull("其中_管理费率") Then
dr("利润") = Nothing
Else
dr("利润") = Round2((dr("其中_人工费") + dr("其中_机具费")) * dr("利润费率"), 2)
End If
End Select
Select Case e.DataCol.Name
Case "其中_材料费", "其中_机具费", "其中_人工费", "其中_管理费"
dr("基价") = dr("其中_人工费") + dr("其中_材料费") + dr("其中_机具费") + dr("其中_管理费")
Case "基价", "利润"
dr("综合单价") = dr("基价") + dr("利润")
End Select
加好友 
发短信
Post By：2022/5/5 22:32:00 [显示全部帖子]
