以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助多表跨表引用问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105988)
--  作者：356308762
--  发布时间：2017/8/30 16:21:00
--  求助多表跨表引用问题
求助：在制作出库功能中。点击导入按钮，同时引用"订单列表"和“订单明细”中的数据到对应的“出库列表”和“出库明细表”中。
现在的代码是：
For Each r1 As Row In Tables("添加关联订单_ddmxb").getcheckedrows
    Dim r2 As Row = Tables("出库列表.出库明细表").addnew
    r2("关联订单") = r1("订单编号")
    r2("商品编号") = r1("商品编号")
Next

e.form.close

怎么将“订单列表”的“客户名称”和“订单编号”加进去，引用到“出库列表”的“客户名称”和“关联订单”中去。
--  作者：有点甜
--  发布时间：2017/8/30 16:28:00
--  
For Each r1 As Row In Tables("添加关联订单_ddmxb").getcheckedrows
    Dim fdr As DataRow = DataTables("出库列表").find("关联订单 = \'" & r1("关联订单") & "\'")
    If fdr Is Nothing Then
        Dim ndr As DataRow = DataTables("出库列表").AddNew
        ndr("关联订单") = r1("订单编号")
        ndr("客户名称") = r1.DataRow.GetParentRow("订单表")("客户名称")
    End If
    Dim r2 As Row = Tables("出库列表.出库明细表").addnew
    r2("关联订单") = r1("订单编号")
    r2("商品编号") = r1("商品编号")
Next
--  作者：356308762
--  发布时间：2017/8/30 16:50:00
--  问题
老师，这样出现了一问题。点击按钮后明细会添加到默认选中的列表行中，而不是新增的列表行中。
--  作者：有点甜
--  发布时间：2017/8/30 16:57:00
--  
For Each r1 As Row In Tables("添加关联订单_ddmxb").getcheckedrows
    Dim fdr As DataRow = DataTables("出库列表").find("关联订单 = \'" & r1("关联订单") & "\'")
    If fdr Is Nothing Then
        Dim nr As Row = Tables("出库列表").AddNew
        nr("关联订单") = r1("订单编号")
        nr("客户名称") = r1.DataRow.GetParentRow("订单表")("客户名称")
    End If
    Dim r2 As Row = Tables("出库列表.出库明细表").addnew
    r2("关联订单") = r1("订单编号")
    r2("商品编号") = r1("商品编号")
Next
--  作者：356308762
--  发布时间：2017/8/30 17:05:00
--  谢谢老师
好了！谢谢老师！！！