Select Case e.DataCol.name
Case "C30_原设计_数量","C30_原设计_金额","C30_变更后_数量","C30_变更后_金额","C30_变更值_数量","C30_变更值_金额"
Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("护栏工程量表")
Dim dr As DataRow
For i As Integer = 0 To drs.count - 1
If drs("原设计或变更") = "原设计" Then
e.DataRow("C30_原设计_数量") = e.DataRow("C30_原设计_数量") + drs(i)("C30混凝土_方量")
End If
Next
End Select
---------------------------
错误
---------------------------
编译错误:重载决策失败,原因是没有可访问的“=”可以用这些参数调用:
错误代码:If drs("原设计或变更") = "原设计" Then
---------------------------
确定
---------------------------