同一类产品统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 同一类产品统计

共有4843人关注过本帖树形打印复制链接主题：同一类产品统计

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

同一类产品统计 发帖心情

Post By：2022/1/28 13:41:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:统计结果.xlsx

各位老师，

请教一下，这样的统计表怎么实现：

根据不同产品（注意有不同单位）来统计，型号以逗号隔开，颜色和产地如果有重复只显示1个，不重复的以逗号隔开

下载信息 [文件大小：下载次数： ]
点击浏览该文件:同一类产品统计.foxdb

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

Post By：2022/1/28 14:24:00 [显示全部帖子]

帮助能看懂，但达不到我要的效果，尤其是怎样把文本组合并自动剔除重复项

请老师有空帮下忙吧，谢谢！

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

Post By：2022/1/28 16:40:00 [显示全部帖子]

GetComboListString 是针对datatable

实际是要对子表table统计，这样怎么写？

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

Post By：2022/1/28 16:41:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:同一类产品统计2.foxdb

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

Post By：2022/1/29 2:05:00 [显示全部帖子]

GetComboListString 能理解，但还是不知道怎么把多行文本做到统计表里面去，请老师指点一下，谢谢！

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

Post By：2022/1/29 9:30:00 [显示全部帖子]

还是要请老师看下怎么把代码整合进去，要根据2个条件来判断：“产品”+“单位”

得到下面的统计表：

书包	袋	型号007，型号008	棕色	江西	50
书包	个	型号004，型号005	蓝色，绿色	福建，广东	287
文具盒	盒	型号001，型号002	蓝色，绿色	江苏	177
文具盒	千克	型号003，型号006	红色，蓝色	天津，安徽	317

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

Post By：2022/1/29 9:31:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:产品统计3.foxdb

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

Post By：2022/1/29 10:01:00 [显示全部帖子]

差不多好了，还差最后统计数量那一列不会写：

Dim dtb As New DataTableBuilder("统计")

dtb.AddDef("产品", Gettype(String), 32)

dtb.AddDef("单位", Gettype(String), 32)

dtb.AddDef("型号", Gettype(String), 32)

dtb.AddDef("颜色", Gettype(String), 32)

dtb.AddDef("产地", Gettype(String), 32)

dtb.AddDef("数量", Gettype(Double))

dtb.Build()

For Each s As String() In DataTables("明细").GetValues("产品|单位")

Dim r As Row = Tables("统计").AddNew

r("产品") = s(0)

r("单位") = s(1)

r("型号") = DataTables("明细").GetComboListString("型号","产品='" & s(0) & "' and 单位='" & s(1) & "'").replace("|",",")

r("颜色") = DataTables("明细").GetComboListString("颜色","产品='" & s(0) & "' and 单位='" & s(1) & "'").replace("|",",")

r("产地") = DataTables("明细").GetComboListString("产地","产品='" & s(0) & "' and 单位='" & s(1) & "'").replace("|",",")

r("数量”) =

MainTable= Tables("统计")

avatarasdf

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

加好友

发短信

等级：幼狐帖子：154 积分：2378 威望：0 精华：0 注册：2012/9/4 10:59:00

Post By：2022/1/29 10:37:00 [显示全部帖子]

可以了，非常感谢！

下一主题 >> << 上一主题

主题：同一类产品统计