为什么例子中执行黄色部分语句的结果一直接为零，不知道是什么原因，但是用红色部分去试验的时候没有问题，这是什么原因？

Select Case e.DataCol.name
    Case "科目编号"
        Dim biaoshezidrs As List (of DataRow) = DataTables("表设置").Select("表名  = \'科目余额汇总\'and 公司名称 = \'"& e.DataRow("公司名称") & "\' and 列标题 is not null and 列名称 is not null")
        For Each biaoshezidr As DataRow In biaoshezidrs
            If biaoshezidr("列名称").Contains("借方金额") = True Then
                msgbox("公司名称 =  \'"& e.DataRow("公司名称") & "\' and 科目编号 =  \'"& e.DataRow("科目编号") & "\'and  年度 =  \'"& biaoshezidr("列标题").SubString(0,4) & "\'")
                \'msgbox("""" & biaoshezidr("列名称") &"""")
                \'e.DataRow("自定义1_借方金额")  = DataTables("科目余额").Compute("sum(本期发生额_借方金额)","公司名称 =  \'"& e.DataRow("公司名称") & "\' and 科目编号 =  \'"& e.DataRow("科目编号") & "\'and  年度 =  \'"& biaoshezidr("列标题").SubString(1,4) & "\'")
               
                e.DataRow("" & biaoshezidr("列名称") &"")  = DataTables("科目余额").Compute("sum(本期发生额_借方金额)","公司名称 =  \'"& e.DataRow("公司名称") & "\' and 科目编号 =  \'"& e.DataRow("科目编号") & "\'and  年度 =  \'"& biaoshezidr("列标题").SubString(1,4) & "\'")
                msgbox(e.DataRow("" & biaoshezidr("列名称") &""))
                \'msgbox(e.DataRow("自定义1_借方金额"))
            End If
        Next
        e.DataRow("自定义1_借方金额")  = DataTables("科目余额").Compute("sum(本期发生额_借方金额)","公司名称 =  \'"& e.DataRow("公司名称") & "\' and 科目编号 =  \'"& e.DataRow("科目编号") & "\'and  年度 =  \'2009\'")
       
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目41.foxdb