Foxtable(狐表)用户栏目专家坐堂 → 如何自动将“入库表”中的已勾选的行中的“产品编号”内容,复制到“过磅表”中已勾选的行中的“产品编号”单元格中?


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

主题:如何自动将“入库表”中的已勾选的行中的“产品编号”内容,复制到“过磅表”中已勾选的行中的“产品编号”单元格中?

帅哥哟,离线,有人找我吗?
fengwenliuyan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:902 积分:8264 威望:0 精华:0 注册:2012/10/19 13:55:00
如何自动将“入库表”中的已勾选的行中的“产品编号”内容,复制到“过磅表”中已勾选的行中的“产品编号”单元格中?  发帖心情 Post By:2019/3/18 17:27:00 [只看该作者]

“入库表”与“过磅表”的关联为“入库表_过磅表”,关联列为“产品编号”;
想要的效果:
首先,在“入库表”中的“选择1”列,勾选一行,
然后,在“过磅表”中的“选择2”列,勾选多行,
然后,点击窗口中的“选择过磅”按钮,可以自动将“入库表”中的已勾选的行中的“产品编号”内容,复制到“过磅表”中已勾选的行中的“产品编号”单元格中,
最后,并同时情况“入库表”与“过磅表”中的“选择1”列和“选择2”列。
请问,这个代码咋写?




[此贴子已经被作者于2019/4/30 9:56:37编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/18 18:16:00 [只看该作者]

Dim t1 As Table = Tables("入库表")
Dim t2 As Table = Tables("过磅表")
For Each r1 As DataRow In t1.DataTable.Select("选择1=true")
    For Each r2 As DataRow In t2.DataTable.Select("选择2=true")
        r2("产品编号") = r1("产品编号")
    Next
Next

 回到顶部