[求助]篡改汇总模式的结果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]篡改汇总模式的结果

共有3071人关注过本帖树形打印复制链接主题：[求助]篡改汇总模式的结果

有点酸

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

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2020/5/1 19:40:00 [显示全部帖子]

Dim groups As List(of String) = DataTables("统计分析_Table1").GetValues("款式季度")

For Each grp As String In groups

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "*"

g.Caption = "总计"

t.SubtotalGroups.Add(g)

你这里指定了分组列(GroupOn)，没有指定统计列(TotalOn)

有点酸

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

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2020/5/2 8:10:00 [显示全部帖子]

一楼贴的代码不完整，也没有实际的数据测试，你当想帮你的人都是神仙了。

自己有数据，自己知道设计目的，自己多调试

Dim cnt As Integer = Tables("统计分析_Table1").Rows.Count(True) - groups.count

For Each group As String In groups

Messagebox.show(Group)

Messagebox.Show(Tables("统计分析_Table1").Compute("sum(dic(" & nf1 & "_数量))","款式季度 = '" &group & "'"))

MessageBos.Show(cnt)

Tables("统计分析_Table1").Rows(cnt,True)("款式季度") = group

Tables("统计分析_Table1").Rows(cnt,True)(dic("" & nf1 & "_数量")) = Tables("统计分析_Table1").Compute("sum(dic(" & nf1 & "_数量))","款式季度 = '" &group & "'")

cnt = cnt +1

[此贴子已经被作者于2020/5/2 8:24:59编辑过]

有点酸

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

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：2020/5/3 10:21:00 [显示全部帖子]

"sum(dic(" & nf1 & "_数量))"

改为：
"sum(" & dic(nf1) & "_数量)"

可以自己Message.show("sum(" & dic(nf1) & "_数量)")

看看合成的是否是预期的。

实际上稍微复杂点的表达式，都很难一次合成，都需要用MessageBox.show显示一下合成的结果，看看是否正确。

主题：[求助]篡改汇总模式的结果