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

各位老师，

 

我在菜单上设计了一个复制新增的按钮，目的是想实现，复制当前选中的行，但当其有子关联表（明细表)时,复制出来的行下面同时也产生一张新的明细表。（因为这个按钮是通用的，所有有时的行也没有子关联表）如下图

 

 
此主题相关图片如下：qq截图20121221172758.jpg

 

因为编号列是不允许重复的，所以复制时自动将产生的新行的编号为“旧编号-2”，以方便产生新的关联明细表，生成后用户再自行修改这个编号就可以。

 

这个复制新增按钮的代码要怎么写？

 

谢谢！

 

 大致这样，没测试。

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

这个好，可以复制BOM表

谢谢，应该可以了，研究一下不懂请再请教林总了。