主题：同步更新？

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