主题：求助跨表引用问题

想实现订单明细表单价列（不同客户）引用仓库表不同价格。谢谢！！！

If e.DataCol.Name = "规格" OrElse e.DataCol.Name = "客户" Then
    If e.NewValue = "刘晓定" Then
        Dim dr As DataRow
        dr = DataTables("仓库").Find("[规格] = '" & e.DataRow("规格") & "'")
        If dr IsNot Nothing Then
            e.DataRow("单价") = dr("价格")
            e.DataRow.Save()
        End If
    End If
End If

If  e.DataCol.Name = "客户" Then

 dr = DataTables("仓库").Find("[客户] = '" & e.DataRow("客户") & "'")

e.datarow("价格") = dr(“价格”)

endif

类似这样

谢谢！！！

问题是订单明细表不同的客户相同规格，价格是不一样的。