主题：[求助]跨表引用继承更新

从帮助中使用了以下两段代码，单独测试是通过的。修改至具体程序中，父表的字段发是变化，子表不更新，可能出现的问题会在哪里？请老师给些帮助。（Select Case e.DataCol.Name 在我的程序中有多段）。

订单表的DataColChanged事件设置为：

If e.DataCol.Name = "产品编号" Then
    Dim nms() As String = {"品名","型号","规格","单价"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("产品").Find("[产品编号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

产品表的DataColChanged事件设置为：

Select Case e.DataCol.Name
    Case "品名","型号","规格","单价"
        Dim Filter As String = "[产品编号] = '" & e.DataRow("产品编号") & "'"
        Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.NewValue
        Next
End Select