以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  计算不全  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123161)
--  作者：nbsugu_z
--  发布时间：2018/8/9 9:12:00
--  计算不全
Select Case e.DataCol.Name
    Case "二幢_操作","三幢_操作","一幢_操作","四幢_操作","五幢_操作","时代中心6幢_操作","时代中心7幢_操作","御座_操作"
            
        If e.DataRow("一幢_操作")="1" Then
            vars("d1")=e.DataRow("一幢_建筑面积")
        ElseIf   e.DataRow("二幢_操作")="1" Then
            
            vars("d2")=e.DataRow("二幢_建筑面积")
        ElseIf   e.DataRow("三幢_操作")="1" Then
             vars("d3")=e.DataRow("三幢_建筑面积")
        ElseIf   e.DataRow("四幢_操作")="1" Then
             vars("d4")=e.DataRow("四幢_建筑面积")
        ElseIf   e.DataRow("五幢_操作")="1" Then
             vars("d5")=e.DataRow("五幢_建筑面积")
        ElseIf   e.DataRow("时代中心6幢_操作")="1" Then
             vars("d6")=e.DataRow("时代中心6幢_建筑面积")
        ElseIf   e.DataRow("时代中心7幢_操作")="1" Then
             vars("d7")=e.DataRow("时代中心7幢_建筑面积")
        ElseIf   e.DataRow("御座_操作")="1" Then
             vars("d8")=e.DataRow("御座_建筑面积")
        End If
     e.DataRow("未售面积")=vars("d1")+vars("d2")+vars("d3")+vars("d4")+vars("d5")+vars("d6")+vars("d7")+vars("d8")   
End Select

为什么这个代码定义了全局变量后， e.DataRow("未售面积")无法计算，只计算其中一个
--  作者：有点甜
--  发布时间：2018/8/9 10:15:00
--  

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