以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]跨表更新引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=140711)
--  作者：冷泉
--  发布时间：2019/9/11 20:50:00
--  [求助]跨表更新引用
我有一个订单表，和一个商品信息表，正常情况是先在商品信息表里设置好所有的商品信息，然后订单表的商品信息直接取值商品信息表，如果我希望在订单表里面也可以直接输入新的商品信息，然后订单表新录入的商品信息也能自动保存到商品信息表里面，应该如何写代码了，麻烦老师指导下
--  作者：有点蓝
--  发布时间：2019/9/12 9:11:00
--  
参考：http://www.foxtable.com/webhelp/topics/1453.htm

比如

If e.DataCol.Name = "产品编号" Then
    If e.NewValue Isnot Nothing Then
        Dim dr As DataRow
        dr = DataTables("产品").Find("[产品编号] = \'" & e.NewValue & "\'")
        If dr Is Nothing 
dr = DataTables("产品").addnew
            dr("品名") = e.DataRow("品名")
            dr("型号") = e.DataRow("型号")
            dr("规格") = e.DataRow("规格")
            dr("单价") = e.DataRow("单价") 
        End If
    End If
End If