求大师指点：
我在窗口的上表"添加分析_录入主表"里用“勾”列选择多行，并与下表“添加分析_录入明细表”联动后，将上下表里列名为“勾”的选中行导入到主窗口的上下表里，下面的代码是错的，希望能帮我更改一下：
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
谢谢
加好友 
发短信
Post By：2022/7/20 12:59:00 [只看该作者]
