主题：[求助]克隆行及关联表

[求助]克隆行及关联表? 主表名称:“１”关联表名称:“2”、“３”、“４”.

我想主表克隆行时能同时也克隆2个关联表相应的行，且克隆后的新行的生产编号在原生产编号+复件。如：“1234”　，变成“1234复件”。

Dim r As Row = Tables("基本信息表").Current
Dim dnew As Row = Tables("基本信息表").AddNew
Dim name As String = r("出厂编号")& "-复件"
For Each c As Col In Tables("基本信息表").Cols
    If c.Name = "出厂编号" Then
        dnew(c.Name) = name
    ElseIf c.Name <> "_Identify" Then
        dnew(c.Name) = r(c.Name)
    End If
Next
Dim drs As List(Of DataRow)
drs = r.DataRow.GetChildRows("受力结构件")
Dim rc As DataRow
For Each dr As DataRow In drs
    rc = dr.Clone
    rc("出厂编号") = name
Next
drs = r.DataRow.GetChildRows("零部件")
For Each dr As DataRow In drs
    rc = dr.Clone
    rc("出厂编号") = name
Next
drs = r.DataRow.GetChildRows("安全保护装置")
For Each dr As DataRow In drs
    rc = dr.Clone
    rc("出厂编号") = name
Next

 

按下按钮时，显示错误，应该逻辑列不能克隆，怎样解决？

 

此主题相关图片如下：385.jpg