[求助]关于列表项目多选项的交叉统计问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于列表项目多选项的交叉统计问题？

共有2360人关注过本帖树形打印复制链接主题：[求助]关于列表项目多选项的交叉统计问题？

fengwenliuyan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：902 积分：8300 威望：0 精华：0 注册：2012/10/19 13:55:00

[求助]关于列表项目多选项的交叉统计问题？ 发帖心情

Post By：2017/2/10 14:55:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

项目中的交叉统计设置中有保存了想要达到的效果，就是“入库容器”列下拉有多个筛选，然后对这多个筛选的选项，根据客户、时间、工序进行统计，并在统计表中建一列“容器结余”，“容器结余”=“入库容器”-“出库容器”。

应该怎么写？

fengwenliuyan

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：902 积分：8300 威望：0 精华：0 注册：2012/10/19 13:55:00

不能沉啊？

Post By：2017/2/10 15:33:00 [只看该作者]

不能沉啊？

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/2/10 15:39:00 [只看该作者]

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("客户", Gettype(String), 16)
Dim prds As List(of String) = DataTables("啊啊").GetValues("入库容器", "入库容器 is not null")
For Each prd As String In prds
    dtb.AddDef(prd & "_入库", Gettype(Double))
    dtb.AddDef(prd & "_出库", Gettype(Double))
    dtb.AddDef(prd & "_结余", Gettype(Double))
Next
dtb.Build()
For Each cus As String In DataTables("啊啊").GetValues("客户")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("客户") = cus
    For Each prd As String In prds
        dr(prd & "_入库") = DataTables("啊啊").Compute("Sum(入库)","客户 = '" & cus & "' And [入库容器] = '" & prd & "'")
        dr(prd & "_出库") = DataTables("啊啊").Compute("Sum(出库)","客户 = '" & cus & "' And [入库容器] = '" & prd & "'")
        dr(prd & "_结余") = dr(prd & "_入库") - dr(prd & "_出库")
    Next
Next
MainTable= Tables("统计")