管道小计=水平段+开关+配电箱
Dim dr As DataRow
Select Case e.DataCol.Name Case "计算公式_水平","计算公式_垂直_开关","计算公式_垂直_配电箱"
dr("管道_小计") =eval(dr("计算公式_水平"),dr)+eval(dr("计算公式_垂直_开关"),dr)+eval(dr("计算公式_垂直_配电箱"),dr)
End Select
提示错误