主题：统计查询窗口如何计算子表中合计数到父行

Tables(e.Form.Name & "_Table1").DataTable.LoadFilter= s
Tables(e.Form.Name & "_Table1").DataTable.load
Tables(e.Form.Name & "_Table1").DataTable.LoadChildren("zypj2")
Dim chr As Table
For Each r As Row In Tables(e.Form.Name & "_Table1").Rows
    r("金额")= DataTables("zypj2").Compute("sum(金额)","单据内码='" & r("单据内码") & "'")
Next