主题：用代码计算

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

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

这是我编写的代码

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

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

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

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

这个例子里有两张，一张是明细表、一张是汇总表，我需要的是明细表数据发生变动时，汇总表数据能够自动更新，并且两个的总数保持一致

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生产管理部分.table

你给我发的代码已经收到，谢谢

还是这个例子，我想问一下，如果明细表删除一行的数据，怎么能够让汇总表的数据也自动减少呢。