主题：克隆数据

主表、关联表根据编号关联的，并且编号是自动生成的如20140313-001，当主表的其中一条数据如20140313-005作废，我希望点击作废的同时自动克隆一条新数据连同关联表的数据，原作废的保留?

作废的已打印，已有打印piao据号，要保留，克隆一条修改正确后再打印。

每次打印的piao据不同，作废一次就有2个piao据号，二次就有3个piao据，这些piao据号怎么保留？

运行错误A child row has multiple parents.

运行错误Index -1 is either negative or above rows count.

Tables("收购").Current("作废") = True
Tables("收购").Current("编号") = Tables("收购").Current("编号") & "-" & "已作废"

If Functions.Execute("net20sp1") = False Then
    Return
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\作废收购单.xls")
Dim fl As String = ProjectPath & "Reports\作废收购单.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.PrintOut
App.Quit

Tables("收购").Current.Clone()

加后缀位置不对，如何修改？

如何将作废的行赋值给新增行，并且新增的编号没有“已作废”字样？

If Tables("收购").Current("作废") = True Then
    MessageBox.Show("该行已作废!")
Else
    If Functions.Execute("net20sp1") = False Then
        Return
    End If
    Dim Book As New XLS.Book(ProjectPath & "Attachments\作废收购单.xls")
    Dim fl As String = ProjectPath & "Reports\作废收购单.xls"
    Book.Build()
    Book.Save(fl)
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Ws.PrintOut
    App.Quit
   
    Dim r As Row = Tables("收购").current
    Dim dr As DataRow = DataTables("收购").addnew
    dr("编号")=r("编号") & "-" & "已作废"
    dr("猪主姓名")=r("猪主姓名")
    dr("重量")=r("重量")
    dr("单价")=r("单价")
    dr("日期")=r("日期")
    dr("年")=r("年")
    dr("月")=r("月")
    dr("日")=r("日")
    dr("修改")=True
    dr("打印")=True
    dr("收购凭证号")=r("收购凭证号")
    dr("字符日期")=r("字符日期")
    dr("作废")=True
    dr("销售已录入")=r("销售已录入")
    dr("头数")=r("头数")
    dr("收购金额")=r("收购金额")
    r("修改") = False
    r("打印") = False
    r("作废") = False
    r("收购凭证号") = ""
End If

 

关联表中的单价原是根据主表（收购表）的单价及重量的数据计算自动生成，但输入上述代码后却不能生成，为什么？

是不是  dr("单价")=r("单价")的错误？

DataTables("收购").RemoveFor("[作废] = true")

移除后，怎样重新显示出来？