以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助跨表引用问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=34590)
--  作者：秦迪
--  发布时间：2013/6/9 18:31:00
--  求助跨表引用问题

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

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
--  作者：有点甜
--  发布时间：2013/6/9 18:32:00
--  
你问题都没有说清楚的，没办法帮你
--  作者：夕然
--  发布时间：2013/6/9 20:29:00
--  

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

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

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

endif

 

类似这样


 
--  作者：秦迪
--  发布时间：2013/6/10 12:02:00
--  

谢谢！！！

问题是订单明细表不同的客户相同规格，价格是不一样的。
--  作者：夕然
--  发布时间：2013/6/10 16:06:00
--  
只是多加一个条件而已
--  作者：秦迪
--  发布时间：2013/6/11 15:24:00
--  
请教怎样加条件，谢谢！！！
--  作者：zerov
--  发布时间：2013/6/11 17:59:00
--  
dr = DataTables("仓库").Find("[客户] = \'" & e.DataRow("客户") & "\' And 规格 = ‘“ & e.Datarow(”规格“) &"\'") ’注意红色这一句，连接功能，逻辑与。