主题：[求助] 相同行内容相同加总后复制到追加到这一个表A

请老师指点一下

相同行只要内容相同，数量加总，金额加后到追加到这一个表A，复制重复就提示。麻烦了。

方法一：分组统计

http://www.foxtable.com/webhelp/scr/0158.htm

方法二：直接统计

http://www.foxtable.com/webhelp/scr/0681.htm

方法三：用代码填充

http://www.foxtable.com/webhelp/scr/1533.htm

版主，出了个错误码，请帮忙看一下，哪儿不对了，另外如果我是原表上追加，如何修改。如果重复可以提示吗？ 谢谢了。

Dim dtb As New  DataTableBuilder("CustomsInvoice_Total")
dtb.AddDef("ShippingNo", Gettype(String), 16)
 dtb.AddDef("NameInEnglish", Gettype(String), 16)
 dtb.AddDef("Qty", Gettype(Integer))
 dtb.AddDef("TotalPrice", Gettype(Double))
 dtb.Build()
 For Each  nm() As  String In DataTables("CustomsInvoice").GetValues("ShippingNo| NameInEnglish")
     Dim  dr As  DataRow = DataTables("CustomsInvoice_Total").AddNew()
     dr("ShippingNo") = nm(0)
      dr("NameInEnglish") = nm(1)
     dr("Qty") =  DataTables("CustomsInvoice").Compute("Sum(Qty)","ShippingNo = '" & nm(0) & "' And [NameInEnglish] = '" & nm(1) & "'")
     dr("TotalPrice") =  DataTables("CustomsInvoice").Compute("Sum(TotalPrice)","ShippingNo = '" & nm(0) & "' And [NameInEnglish] = '" & nm(1) & "'")
 Next
 MainTable= Tables("CustomsInvoice_Total")

试试改成

For Each  nm() As  String In DataTables("CustomsInvoice").GetValues("ShippingNo|NameInEnglish")

谢谢，对了