主题：请教跨表引用的问题

我在发货单明细里 想引用 销售订单明细

 

现在的思路是 通过产品名称的datacolchanged事件

 

但是现在有个问题 就是 订单明细里有多条记录的  这个代码肯定有问题  我想请教下 像这种引用 有没有快速有效的方法或思路？

我设计的系统里有很多地方都有跨表引用  有没有一种方法能够快速将其他表符合条件的行加载到当前表？

 

 

If e.DataCol.Name = "产品编号"  Then     

    Dim dr As DataRow
    dr = DataTables("销售订单明细").Find("产品编号 = " & "'" & e.DataRow("产品编号") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("产品名称")= dr("产品名称")
        e.DataRow("规格")= dr("规格")
  
    End If
End If