生成统计效率的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

                     For i As Integer = 0 To s.Length - 1
                        dt1 = New Date(y, i+1, 1)
                        dt2 = New Date(y, i+1, Date.DaysInMonth(y,i+1)) '获取该月的最后一天
                        Filter1 = " 日期 >= '" & dt1 & "' And 日期 <= '" & dt2 & "'And [部门] = '" & Ary(0) & "' And 报表名称='" & Ary(1) & "'And 项目 = '"  & Ary(2) & "'And 统计类型 ='" & Ary(3) & "'And 数据统计项目='" & Ary(4) & "'"
                        Val= DataTables("统计表4").Compute("Sum(数据)",Filter1)
                        If Val > 0 Then
                            ar(s(i)) = Val
                        Else
                            Ar(s(i)) = 0
                        End If
                    Next

查询与赋值并存不是会降低效率么。。
http://www.foxtable.com/help/topics/2225.htm

主题：生成统计效率的问题