以文本方式查看主题

-  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=104097)
--  作者：chuxuezhe369
--  发布时间：2017/7/23 14:51:00
--  跨表引用问题
跨表引用问题，产品表和订单表之间未建关联，订单表引用产品表中的单价，问题是产品表的构成是这样的：产品名称，工序1单价，工序2单价，工序3单价，甚至更多工序单价，如何在订单表中输入产品名称的时候根据工序的不同自动在单价一栏自动录入单价？订单表中有产品名称和工序栏，谢谢。
--  作者：有点甜
--  发布时间：2017/7/23 17:10:00
--  

首先根据产品名称查找到对应的行dr，然后根据工序栏获取值

 


Select Case e.DataCol.name
    Case "产品名称", "工序"
        Dim fdr As DataRow = DataTables("产品").Find("产品名称 = \'" & e.DataRow("产品名称") & "\'")
        If fdr IsNot Nothing Then
            If fdr.DataTable.datacols.contains(e.DataRow("工序") & "单价") Then
                e.DataRow("单价") = fdr(e.DataRow("工序") & "单价")
            Else
                msgbox("不存在列"& e.datarow("工序") & "单价")
            End If
        End If
End Select
--  作者：chuxuezhe369
--  发布时间：2017/7/23 19:05:00
--  
感谢老师，已圆满解决，谢谢。