Select Case e.DataCol.Name
Case "二幢_操作","三幢_操作","一幢_操作","四幢_操作","五幢_操作","时代中心6幢_操作","时代中心7幢_操作","御座_操作"
Dim sum As Double = 0
If e.DataRow("一幢_操作")="1" Then
sum+=e.DataRow("一幢_建筑面积")
End If
If e.DataRow("二幢_操作")="1" Then
sum+=e.DataRow("二幢_建筑面积")
End If
If e.DataRow("三幢_操作")="1" Then
sum+=e.DataRow("三幢_建筑面积")
End If
e.DataRow("未售面积")=sum
End Select