Foxtable(狐表) → 用户栏目 → 专家坐堂 → 物料代码自动补充


  共有2417人关注过本帖树形打印复制链接

主题：物料代码自动补充
帅哥哟，离线，有人找我吗？
实话实说
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		物料代码自动补充  发帖心情 Post By：2016/6/2 7:55:00 [只看该作者]

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

窗口1按钮代码如何写? 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码补充.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/2 9:06:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2016/6/2 9:23:00 [只看该作者]

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

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

[此贴子已经被作者于2016/6/2 9:24:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/2 9:24:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/2 9:25:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2016/6/2 9:26:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/2 9:29:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2016/6/2 9:56:00 [只看该作者]

这些帮助我都试过,还是不能满足我的需求,希望老师能给出窗口1按钮的代码(不用表事件)
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
实话实说
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00 		  发帖心情 Post By：2016/6/2 13:23:00 [只看该作者]

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

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询