以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教临时统计表写法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127502)

--  作者:wakai
--  发布时间:2018/11/15 14:27:00
--  请教临时统计表写法
要实现经筛选后table统计,下面代码生成后,仅分列出并未汇总
dim g As New GroupTableBuilder("统计表1", DataTables("出仓查询_出仓查询"))
g.Filter = Filter
g.Groups.AddDef("商品ID")
g.Totals.AddDef("数量")
\'g.GrandProportion = True
g.Build()

图片点击可在新窗口打开查看此主题相关图片如下:阿里旺旺图片20181115142343.jpg
图片点击可在新窗口打开查看
要实现为下数值怎么写
A007   5.5
A010   17.76(相同ID求和)


[此贴子已经被作者于2018/11/15 14:26:55编辑过]

--  作者:有点甜
--  发布时间:2018/11/15 15:10:00
--  

加上条件

 

g.Filter = Tables("出仓查询_出仓查询").Filter


--  作者:wakai
--  发布时间:2018/11/15 17:32:00
--  
甜老师,筛选没有问题,现在主要是想实现按商品ID分组求和,即每个不同的商品ID只显示一行合计数量
[此贴子已经被作者于2018/11/15 17:32:29编辑过]

--  作者:有点甜
--  发布时间:2018/11/15 20:47:00
--  

你生成分组统计的时候,设置分组的条件为这个不行?

 

g.Filter = Tables("出仓查询_出仓查询").Filter


--  作者:wakai
--  发布时间:2018/11/15 22:25:00
--  
奇怪有些行做了汇总,有些又没有
代码为
Dim Filter As String
Dim g As New GroupTableBuilder("统计表1", DataTables("出仓查询_出仓查询"))
g.Groups.AddDef("商品ID")
g.Totals.AddDef("数量")
g.Filter = Tables("出仓查询_出仓查询").Filter
g.Build()
统计前

图片点击可在新窗口打开查看此主题相关图片如下:阿里旺旺图片20181115142343.jpg
图片点击可在新窗口打开查看
统计后

图片点击可在新窗口打开查看此主题相关图片如下:阿里旺旺图片20181115222227.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/11/15 23:08:00
--  

应该是你商品id后面有空格导致的。去掉空格

 

For Each dr As DataRow In DataTables("表A").datarows
    dr("第一列") = dr("第一列").trim("\'")
Next

--  作者:wakai
--  发布时间:2018/11/15 23:40:00
--  
甜老师,是ID后面有空格,这句代码写在哪里可以去除空格
--  作者:有点甜
--  发布时间:2018/11/16 9:07:00
--  
以下是引用wakai在2018/11/15 23:40:00的发言:
甜老师,是ID后面有空格,这句代码写在哪里可以去除空格

 

1、可以写在分组统计之前;

 

2、也可以写在任意你想写的地方。