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

我有两个表，操作流程是：“操作结算表”录入基本资料后，当在“操作结算表”选择“ 完成情况=True”，代码就会根据“客户结算对应表”“客户全称”的对应的“结算人”自动填写至“操作结算表”“结算人”列中，但是不运作，我是菜鸟级，请帮我修改一下代码吧，代码如下：

Select Case e.DataCol.Name
    Case "是否完成"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr("是否完成") = False Then
            dr("结算人") = Nothing
            Else
            Dim filter As String
            filter = "客户全称 = '" & dr("客户全称") & "'"
            pr = DataTables("客户结算对应表").Find(filter)
            If pr IsNot Nothing Then
                dr("客户全称") = pr("客户全称")
             Else              
                MessageBox.Show("此客户未曾登记")
            End If
        End If
End Select

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

没办法根据你的代码看懂你的业务逻辑。

你直接用一两条数据为例，告诉我们你的工作流程和希望得到的结果。

这个表的代码是可以实现，但是加入关联，将“是否完成”列设为表达式列，代码就时效了。请问如何编写代码？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.zip

“操作结算表”的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