用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