以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  物料代码自动补充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85765)
--  作者：实话实说
--  发布时间：2016/6/2 7:55:00
--  物料代码自动补充

表A是网上订单代码,表B是已有的代码,当表A有新增代码时,希望自动添加到表B

窗口1按钮代码如何写? 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码补充.foxdb
--  作者：大红袍
--  发布时间：2016/6/2 9:06:00
--  

参考

 

http://www.foxtable.com/help/topics/2490.htm

 
--  作者：实话实说
--  发布时间：2016/6/2 9:23:00
--  

大红袍老师,我的意思可能没表达清楚,不是关联取值的问题,是自动补充完善代码数据表(表B)中代码.

将表A中的新代码(表B中没有的)补充到表B

[此贴子已经被作者于2016/6/2 9:24:10编辑过]
--  作者：大红袍
--  发布时间：2016/6/2 9:24:00
--  
就是2楼那样的啊，没有就新增，修改就对应修改。
--  作者：大红袍
--  发布时间：2016/6/2 9:25:00
--  
 这么简单的问题，你还看不懂？你在论坛混多久了啊
--  作者：实话实说
--  发布时间：2016/6/2 9:26:00
--  
能写一下吗,看是不是我想要
--  作者：大红袍
--  发布时间：2016/6/2 9:29:00
--  

参考

 

http://www.foxtable.com/help/topics/1451.htm

 

http://www.foxtable.com/help/topics/1453.htm

 
--  作者：实话实说
--  发布时间：2016/6/2 9:56:00
--  

这些帮助我都试过,还是不能满足我的需求,希望老师能给出窗口1按钮的代码(不用表事件)
--  作者：大红袍
--  发布时间：2016/6/2 10:05:00
--  

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr As DataRow = DataTables("表B").find("代码 = \'" & dr("代码") & "\'")
    If fdr Is Nothing Then
        fdr = DataTables("表B").AddNew
        fdr("代码") = dr("代码")
    End If
    fdr("型号") = dr("型号")
    fdr("规格") = dr("规格")
Next
--  作者：实话实说
--  发布时间：2016/6/2 13:23:00
--  
惭愧,这点小事麻烦大红袍老师.代码解决了我的问题