主题：跨表引用的自动更新求代码

“操作结算表”的DataColChanged 中加入:

    Case "是否完成"
        Dim pr As DataRow
        Dim drs As List(of DataRow) = e.DataRow.GetChildRows("操作结算表")
        For Each drc As DataRow In drs
            If e.DataRow("是否完成") = False '
                drc("结算人") = Nothing
            Else
                Dim filter As String
                filter = "客户全称 = '" & e.DataRow("客户全称") & "'"
                pr = DataTables("客户结算对应表").Find(filter)
                If pr IsNot Nothing Then
                   drc("结算人") = pr("结算人")
                Else              
                   MessageBox.Show("此客户未曾登记")
                End If
            End If
        Next