主题：计算不全

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