主题：关联内容复制

我想通过按钮实现关联表复制行，点击按钮实现以下要求

表A为父表，表B为子表

1. 将表A选定的行复制到表A的最末行，表B的关联行同时复制到表B的最末行

2. 将表A与表B的关联列 里的数据改为 "AAAAA"

求助，

谢谢！

狐爸您好！

非常感谢您为我编写代码。

我用您给的代码调试兰色与红色的代码提示错误。我改用以下代码红色的代码提示错误。

不知道如何解决。
Dim dr1 As DataRow =Tables("表A") .Current.DataRow
Dim dr2 As DataRow = DataTables("表A").AddNew()
'For Each dc As DataRow In DataTables("表A").DataRows
' dr2(dc.name) = dr1(dc.name)
'Next
dr2("日期") = dr1("日期")
dr2("编号") = "xxx"
dr2("名称") = dr1("名称")
dr2("规格") = dr1("规格")

 

For each dr3 As DataRow = dr1.GetChildRows()

Dim dr4 As DataRow = DataTables("表B").AddNew()

'for each dc As DataRow in DataTables("表B").DataRows

'dr4(dc.name) = dr4(dc.name)

'Next
dr4.AddNew()
dr4("日期") = dr3("日期")
dr4("编号") = "xxx"
dr4("品类") = dr3("品类")
dr4("名称") = dr3("名称")
dr4("颜色") = dr3("颜色")
Next

For each dr3 s DataRow = dr1.GetChildRows()

把上述代码改为以下代码，提示错误

Dim ml As DataRow =Tables("产品信息表").Current.DataRow
Dim dr3 As List(Of DataRow)
dr3 = DataTables("产品信息表").DataRows(ml).GetChildRows("产品配件用量表")

错误提示：

 

此主题相关图片如下：捕获b.png

 

For Each dr3 As DataRow = dr1.GetChildRows()

 

上述代码提示

 

此主题相关图片如下：捕获c.png

狐爸您好！

用  For Each dr3 As DataRow In dr1.GetChildRows()

提示：

此主题相关图片如下：捕获d.png

问题已解决。

非常感谢狐爸，对我的帮助