主题：关于关联表克隆行的问题

 在克隆代码那里判断

Dim r As Row = Tables("产品型号").Current
Dim name As String = r("产品型号") & "_复件"
Dim fdr As DataRow = DataTables("产品型号").Find("产品型号 = '" & name & "'")
If fdr IsNot Nothing Then
    msgbox("重复了")
Else
    Dim dnew As Row = Tables("产品型号").AddNew
    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
End If