以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同步更新？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31182)
--  作者：wqb1102
--  发布时间：2013/4/11 13:10:00
--  同步更新？
子表代码
Select Case e.DataCol.Name
    Case "付款日期","付款金额"
        Dim pr As DataRow
        pr = DataTables("出库").Find("送货单号= \'" & e.DataRow("送货单号") & "\'")
        If pr IsNot Nothing Then
            DataTables("出库").DataCols("送货单号").RaiseDataColChanged(pr)
    End If
End Select
父表代码
If e.DataCol.Name = "送货单号" Then
    Dim dr As DataRow
    Dim Filter As String = "[送货单号] = \'" & e.NewValue & "\'"
    If dr IsNot Nothing \'如果找到, 则设置各列内容
    e.DataRow("已付") = DataTables("销售明细").Compute("Sum(付款金额)", Filter)
    e.DataRow("应收") = DataTables("销售明细").Compute("Sum(金额)", Filter)
    e.DataRow("未付") = DataTables("销售明细").Compute("Sum(应收)", Filter)
End If
End If
   当子表中付款日期、付款金额变动时，引发父表算同一送货单号的：已付、应收、未付三列，上面代码没有实现，请问要如何修改？
--  作者：Bin
--  发布时间：2013/4/11 14:16:00
--  
例子发出来看看.代码看上去没发现问题.
--  作者：wqb1102
--  发布时间：2013/4/11 20:42:00
--  
多谢，明天我试用