以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用代码计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74085)
--  作者：kaituozhe
--  发布时间：2015/9/1 22:26:00
--  用代码计算
一张表中是按日期填写的明细，随着数据的变动，在另一张表按月汇总并自动更新，怎么办。
--  作者：kaituozhe
--  发布时间：2015/9/1 22:44:00
--  
Select Case e.DataCol.name
    Case "需求数量","发出数量","产品耗用"
        Dim y As Integer =e.DataRow("计划日期").year
        Dim m As Integer =e.DataRow("计划日期").month
        Dim s As String =y &"年"& m &"月"
        Dim dr As DataRow =DataTables("计划耗用结存").find("[物料编码] = \'" & e.DataRow("物料编码") & "\'and [计划日期]=\'"& s &"\'and [部门]=\'"&e.datarow("部门")&"\'")
        If dr Is Nothing Then
            dr=DataTables("计划耗用结存").addnew()
            dr("物料编码")=e.DataRow("物料编码")
            dr("部门")=e.DataRow("部门")
            dr("计划日期")=s
        End If
        dr("发出数量")=DataTables("需求使用").Compute("sum(发出数量)","[物料编码] = \'" & e.DataRow("物料编码") & "\'and [计划日期]=\'"& s &"\'and [部门]=\'"& e.datarow("部门") &"\'")
        dr("需求数量")=DataTables("需求使用").Compute("sum(需求数量)","[物料编码] = \'" & e.DataRow("物料编码") & "\'and [计划日期]=\'"& s &"\'and [部门]=\'"& e.datarow("部门") &"\'")
        dr("产品耗用")=DataTables("需求使用").Compute("sum(产品耗用)","[物料编码] = \'" & e.DataRow("物料编码") & "\'and [计划日期]=\'"& s &"\'and [部门]=\'"& e.datarow("部门") &"\'")
End Select
--  作者：kaituozhe
--  发布时间：2015/9/1 22:45:00
--  

这是我编写的代码
--  作者：大红袍
--  发布时间：2015/9/2 1:00:00
--  

http://www.foxtable.com/help/topics/0681.htm

 
--  作者：kaituozhe
--  发布时间：2015/9/2 1:27:00
--  

看过了，实现不了我想要的功能。
--  作者：大红袍
--  发布时间：2015/9/2 9:12:00
--  

4楼肯定可以实现；

 

你也没必要每次统计，直接生成分组统计表就行了http://www.foxtable.com/help/topics/2670.htm

 
--  作者：kaituozhe
--  发布时间：2015/9/2 11:14:00
--  

分组统计是否必须要建立一个新表吗，我是希望把数据统计到一个已经存在的表，并且随着源数据表中的数据更新能够及时更新。
--  作者：kaituozhe
--  发布时间：2015/9/2 11:31:00
--  
设计了两张表，一张《需求使用》，另一张为《计划耗用结存》，需求使用表中是按每一天发生的明细数，计划耗用结存表是按月汇总数，要求是需求使用表中的数据发生变化时同步更新计划耗用结存表，保持两表的一致，后的开发还需要利用计划耗用结存表做一些其他事情。
--  作者：kaituozhe
--  发布时间：2015/9/2 11:33:00
--  
分组统计表实现不了这个功能。
--  作者：大红袍
--  发布时间：2015/9/2 11:41:00
--  

参考 http://www.foxtable.com/help/topics/1472.htm

 

不会做，就请做一个例子发上来。