用datatablebuilder通过表A，建了一个表B

行列都是通过遍历表A,用GetUniqueValues生成，所以行列都不固定

列名是客户

行名是货品

内容是订购数量

现在需要在最后增加一列用来统计每一行的订购数

请问求和代码应该写在哪怎么写？

代码：

Dim dtb As New DataTableBuilder("订单汇整表")
dtb.AddDef("名称与规格", Gettype(String), 32)
For Each v As String In DataTables("KHDDSX").GetUniqueValues("","YHJC")
    dtb.AddDef(v, Gettype(String))
Next
dtb.Build()
For Each v As String In DataTables("KHDDSX").GetUniqueValues("","MCGG")
    Dim dr1 As DataRow = DataTables("订单汇整表").AddNew()
    dr1("名称与规格") = v
    For Each dr2 As DataRow In DataTables("KHDDSX").DataRows
        If dr2("MCGG") = v Then
            dr1(dr2("YHJC")) = dr2("DDSL")

        End If
    Next
Next

可以动态增加一个表达式列：

http://www.foxtable.com/help/topics/1428.htm

最好用一个简单的例子来阐述问题。