方法一：分开
Select e.DataCol.name
Case "含量"
Dim pr As DataRow = e.DataRow.GetParentRow("清单指引")
If pr IsNot Nothing Then
e.DataRow("数量") = pr("工程量") * e.NewValue
End If
Case "数量"
Dim pr As DataRow = e.DataRow.GetParentRow("清单指引")
If pr IsNot Nothing Then
e.DataRow("含量") = e.NewValue/pr("工程量")
End If
End Select
Select Case e.DataCol.Name
Case "数量","单价","成本价"
If e.DataRow.IsNull(e.DataCol.Name)=False Then
e.DataRow("合价")=e.DataRow("单价")*e.DataRow("数量")
e.DataRow("成本合价")=e.DataRow("成本价")*e.DataRow("数量")
Else
e.DataRow("合价")=Nothing
e.DataRow("成本合价")=Nothing
End If
end select
加好友 
发短信
Post By：2015/11/8 11:49:00 [显示全部帖子]
