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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何自动将“入库表”中的已勾选的行中的“产品编号”内容，复制到“过磅表”中已勾选的行中的“产品编号”单元格中？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132273)

--  作者：fengwenliuyan
--  发布时间：2019/3/18 17:27:00
--  如何自动将“入库表”中的已勾选的行中的“产品编号”内容，复制到“过磅表”中已勾选的行中的“产品编号”单元格中？

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

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

--  作者：有点甜
--  发布时间：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