主题：[求助]跨表后台数据表更新代码

Select Case e.DataCol.name

    Case  "入库单号"

        If Tables("材料入库主表").current("入库类型") = "采购入库"  OrElse Tables("材料入库主表").current("入库类型") = "委外加工入库" Then

            Dim dr1 As DataRow = DataTables("应付款采购主表").Find("入库单号 = '" & e.NewValue  & "'")

            If  dr1 Is Nothing   Then

                dr1 = DataTables("应付款采购主表").AddNew()

                dr1("入库单号") = e.DataRow("入库单号")

                dr1("供应商名称") = e.DataRow("供应商名称")

                dr1("供应商首字符") = e.DataRow("供应商首字符")

                dr1("仓库名称") = e.DataRow("仓库名称")

                dr1("录入日期") = e.DataRow("录入日期")

                dr1("录入人") = e.DataRow("录入人")

                dr1("入库类型") = e.DataRow("入库类型")

                dr1("税率") = e.DataRow("税率")

                e.DataRow("结算单号") = dr1("结算单号")

            End If

        End If

    Case  "供应商名称","仓库名称","录入日期","录入人","入库类型","税率","供应商首字符","结算单号"

        Dim dr1 As DataRow = DataTables("应付款采购主表").find("入库单号 = '" & e.DataRow("入库单号") & "'")

        If dr1 IsNot Nothing Then

            dr1(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

        End If

End Select