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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于窗口中的table的统计问题

共有1644人关注过本帖树形打印复制链接主题：关于窗口中的table的统计问题

www111998

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

加好友

发短信

等级：幼狐帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00

关于窗口中的table的统计问题 发帖心情

Post By：2018/5/9 0:53:00 [只看该作者]

在窗口中建立了一个临时表，并给予赋值，用于统计，但是在合计汇总的时候遇到小麻烦，望老师指教！

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

www111998

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

加好友

发短信

等级：幼狐帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00

Post By：2018/5/9 0:55:00 [只看该作者]

希望所有产品列下面都能汇总，

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/9 8:53:00 [只看该作者]

g = new Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
For Each cp As String In DataTables("产品").GetValues("产品")
g.TotalOn &= cp & "_数量," & cp & "_金额,"
Next

g.TotalOn &= "当月_总数量,当月_总金额"

g.Caption = "总计"
rbb.SubtotalGroups.Add(g)

y2287958

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

加好友

发短信

等级：狐神帖子：4649 积分：33907 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/5/9 9:25:00 [只看该作者]

楼主，全部代码换为以下代码吧，简单不累赘。

Dim bm As String = "统计表1"

Dim b As New SQLGroupTableBuilder(bm,"订单")

b.Groups.AddDef("客户姓名")

Dim lst As new List(of String)

lst.Add(Date.Today)

lst.AddRange(DataTables("产品").GetValues("产品"))

For Each ls As String In lst

If ls = CStr(Date.Today)

b.Totals.AddExp(ls & "_数量","iif(购买时间=#" & ls & "#,数量,0)")

b.Totals.AddExp(ls & "_金额","iif(购买时间=#" & ls & "#,金额,0)")

Else

b.Totals.AddExp(ls & "_数量","iif(产品='" & ls & "',数量,0)")

b.Totals.AddExp(ls & "_金额","iif(产品='" & ls & "',金额,0)")

End If

b.VerticalTotal = True

Tables("报表_table1").DataSource = b.Build(True)

www111998

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

加好友

发短信

等级：幼狐帖子：87 积分：721 威望：0 精华：0 注册：2018/2/26 13:37:00

Post By：2018/5/9 12:00:00 [只看该作者]

学习了，就是统计这块没有学习好，思路比较短，不够灵活。

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

主题：关于窗口中的table的统计问题