主题：自动更新

跨表统计，参考 http://www.foxtable.com/webhelp/scr/1472.htm

跟踪表datacolchanged事件

If e.DataCol.Name = "合格品" Then
    Dim pr As DataRow
    pr = DataTables("生产排产表").Find("加工工序 = '" & e.DataRow("加工工序") & "' and 成品编码 = '" & e.DataRow("成品编码") & "'")
    If pr IsNot Nothing Then
        pr("合格品")= e.DataTable.Compute("sum(合格品)", "加工工序 = '" & e.DataRow("加工工序") & "' and 成品编码 = '" & e.DataRow("成品编码") & "'")
    End If
End If