主题：克隆数据

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()

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

不要使用Clone  你这克隆出来的列不也是已作废的么

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

利用  datatables("XX").addnew 行焦点并不会改变.

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

 

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

如果是DataColChanged事件触发计算的, 可能是你赋值顺序不对造成没计算.你检查一下.

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

认真看一下16楼,如果没办法解决.上例子.

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

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

重新加载表.