主题：用代码计算

一张表中是按日期填写的明细，随着数据的变动，在另一张表按月汇总并自动更新，怎么办。

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

这是我编写的代码

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

 

看过了，实现不了我想要的功能。

4楼肯定可以实现；

 

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

 

分组统计是否必须要建立一个新表吗，我是希望把数据统计到一个已经存在的表，并且随着源数据表中的数据更新能够及时更新。

设计了两张表，一张《需求使用》，另一张为《计划耗用结存》，需求使用表中是按每一天发生的明细数，计划耗用结存表是按月汇总数，要求是需求使用表中的数据发生变化时同步更新计划耗用结存表，保持两表的一致，后的开发还需要利用计划耗用结存表做一些其他事情。

分组统计表实现不了这个功能。

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

 

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