如何自动将“入库表”中的已勾选的行中的“产品编号”内容，复制到“过磅表”中已勾选的行中的“产品编号”单元格中？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2892人关注过本帖树形打印复制链接主题：如何自动将“入库表”中的已勾选的行中的“产品编号”内容，复制到“过磅表”中已勾选的行中的“产品编号”单元格中？

fengwenliuyan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：902 积分：8258 威望：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

下一主题 >> << 上一主题

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