主题：复制行时如果连子表的所有行一起复制？

 大致这样，没测试。

Dim s_r As Row = CurrentTable.Current
CurrentTable.Current.Clone
Dim d_r As Row = CurrentTable.Current
d_r("编号") = s_r("编号") & "-xxx"

For Each re As Relation In Relations
    If CurrentTable.Name = re.ParentTable.Name Then   '是父表
        For Each dr As DataRow = r.DataRow.GetChildRows(re.ChildTable.Name)
            For Each r As Row In Tables(re.ChildTable.Name).Rows
                For Each c As Col In Tables(re.ChildTable.Name).Cols   '拷贝一行数据
                    If c.Name = re.ChildColumn.Name Then
                        r(c.Name) = d_r("编号")
                    Else
                        r(c.Name) = dr(c.Name)
                    End If
                Next
            Next
        Next
    End If
Next