以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个代码有啥问题?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39791)
--  作者：jianjingmaoyi
--  发布时间：2013/9/1 22:37:00
--  这个代码有啥问题?

Dim Filter As String
Dim br As DataRow
Dim Val As Double
Dim Arys As List(Of String())
Arys = DataTables("行政后勤管理").GetUniqueValues("年 Is Not Null","年","月","报表名称","统计类型","项目","数据统计项目")
For Each Ary As String() In Arys
    Filter = "年 = \'" & Ary(0) & "\'And 月 =\'" & Ary(1) & "\' And 报表名称=\'" & Ary(2) & "\'And 统计类型 = \'"  & Ary(3) & "\'And 项目 =\'" & Ary(4) & "\'And 数据统计项目=\'" & Ary(5) & "\'"
    If Filter > "" Then
        br = DataTables("汇总表").Find(Filter)
        If br IsNot Nothing Then
            Dim s() As String = {"一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}
            For i As Integer = 0 To s.Length - 1
                Val= DataTables("行政后勤管理").Compute("Sum(s(i))",Filter)
                If Val > 0 Then
                    br(S(i)) = Val
                Else
                    br(S(i)) = Nothing
                End If
            Next
        End If
    End If
Next


DataTables("汇总表").ResumeRedraw
--  作者：有点甜
--  发布时间：2013/9/1 22:40:00
--  
 没有什么问题吧？怎么了？
--  作者：jianjingmaoyi
--  发布时间：2013/9/1 22:43:00
--  

出现一个错误. 算了

 
--  作者：有点甜
--  发布时间：2013/9/1 22:57:00
--  
以下是引用jianjingmaoyi在2013-9-1 22:43:00的发言：

出现一个错误. 算了

 


得贴出来什么错吧？统计的数据不正确？代码逻辑看着没什么问题。
--  作者：Bin
--  发布时间：2013/9/2 8:47:00
--  
 Val= DataTables("行政后勤管理").Compute("Sum(s(i))",Filter)

错误应该是在这里 

 Val= DataTables("行政后勤管理").Compute("Sum(" & s(i) & ")",Filter)
--  作者：blackzhu
--  发布时间：2013/9/2 8:56:00
--  
bin  我 发现这个错误了.就是这个