主题：物料代码自动补充

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

窗口1按钮代码如何写? 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:代码补充.foxdb

参考

 

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

 

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

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

就是2楼那样的啊，没有就新增，修改就对应修改。

 这么简单的问题，你还看不懂？你在论坛混多久了啊

能写一下吗,看是不是我想要

参考

 

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

 

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

 

这些帮助我都试过,还是不能满足我的需求,希望老师能给出窗口1按钮的代码(不用表事件)

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

惭愧,这点小事麻烦大红袍老师.代码解决了我的问题