主题：求助跨表引用问题

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

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