以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按年月日截止统的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9144)

--  作者:kylin
--  发布时间:2011/2/28 9:25:00
--  按年月日截止统的问题

分组的截止统计这个功能很好,但是只是针对年月。

 

如果面对按年月日来统计,这个截止统计出来的数据就不符合要求,见附件

 

在“进出明细表”中打开菜单的“数据统计”》》“分组统计”》》“启用历史统计”》》“按规格型号按年月日统计”

 

“进出统计表”是拷贝了以上的统计,“需求目标”是我们的目标要求,可以看出来“系统统计”的结果与目标结果是不同。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子.rar


--  作者:狐狸爸爸
--  发布时间:2011/2/28 9:53:00
--  

哈哈,这个很难讲啊,可能有的用户需要的本月截止到当日为止的销量,有的用户需要本年截止到当日为止的销量,前者的需求可能更多点。

除非再来个累计截止统计的选项,否则这个问题无解。

我先收藏此帖,以后再处理。

 

你目前可以自己写一段代码,对统计结果进行一次再加工,逐行累计一下。


--  作者:狐狸爸爸
--  发布时间:2011/2/28 10:02:00
--  

代码用这个:

 

Dim t As Table = Tables("统计表1")
For i As Integer = 0 To t.Rows.Count - 1
    If i = 0 Then
        t.Rows(i)("截止采购数量") = t.Rows(i)("采购数量")
        t.Rows(i)("截止销售数量") = t.Rows(i)("销售数量")
    Else
        t.Rows(i)("截止采购数量") = t.Rows(i)("采购数量") + t.Rows(i-1)("截止采购数量")
        t.Rows(i)("截止销售数量") = t.Rows(i)("销售数量") + t.Rows(i-1)("截止销售数量")
    End If
Next


--  作者:kylin
--  发布时间:2011/2/28 10:39:00
--  
明白!