Foxtable(狐表)用户栏目专家坐堂 → [求助]请教临时表统计列


  共有7063人关注过本帖树形打印复制链接

主题:[求助]请教临时表统计列

帅哥哟,离线,有人找我吗?
tele
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:90 积分:1057 威望:0 精华:0 注册:2013/1/2 19:17:00
[求助]请教临时表统计列  发帖心情 Post By:2013/3/1 17:49:00 [显示全部帖子]

用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


 回到顶部