专家坐堂-[求助多行联动导入代码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=178779)

--  作者：Cloud
--  发布时间：2022/7/20 12:59:00
--  [求助多行联动导入代码

求大师指点：
我在窗口的上表"添加分析_录入主表"里用“勾”列选择多行，并与下表“添加分析_录入明细表”联动后，将上下表里列名为“勾”的选中行导入到主窗口的上下表里，下面的代码是错的，希望能帮我更改一下：
For Each r1 As Row In Tables("添加分析_录入主表").Current("勾")
If DataTables("添加分析_录入主表").GetComboListString("勾") = True Then
Dim r2 As Row = Tables("添加分析_分解主表").AddNew()
r2("系统编号") = r1("工序名称")
r2("工序名称") = r1("工序名称")
r2("工序等级") = r1("工序等级")
r2("设备") = r1("设备")
r2("部位") = r1("部件名称")
r2("面线颜色") = r1("面线颜色")
r2("底线颜色") = r1("底线颜色")
End If
Next

For Each r1 As Row In Tables("添加分析_录入明细表").Current("勾")
If DataTables("添加分析_录入明细表").GetComboListString("勾") = True Then
Dim r2 As Row = Tables("添加分析_分解明细表").AddNew()
r2("数据名称") = r1("数据名称")
r2("动作名称") = r1("动作名称")
r2("人工频率") = r1("人工频率")
r2("捆扎时间") = r1("捆扎时间")
r2("设备") = r1("设备")
r2("计算长度") = r1("计算长度")
End If
Next

谢谢

--  作者：有点蓝
--  发布时间：2022/7/20 13:37:00
--

For Each r1 As dataRow In DataTables("添加分析_录入主表").select（“勾=true”）
Dim r2 As Row = Tables("添加分析_分解主表").AddNew()
r2("系统编号") = r1("工序名称")
r2("工序名称") = r1("工序名称")
r2("工序等级") = r1("工序等级")
r2("设备") = r1("设备")
r2("部位") = r1("部件名称")
r2("面线颜色") = r1("面线颜色")
r2("底线颜色") = r1("底线颜色")
Next

--  作者：Cloud
--  发布时间：2022/7/20 13:45:00
--
谢谢