以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于表的按列汇总  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77366)

--  作者:czy66ds
--  发布时间:2015/11/17 11:33:00
--  关于表的按列汇总
比如有一个窗口表(A B C 为列名):
A B C
a1 b1 3
a1 b2 5
a2 b1 7
a2 b2 9

需要显示成下面的样子(按A列汇总列)
A C
a1 8
a2 16

不使用分组统计,该如何处理?

--  作者:czy66ds
--  发布时间:2015/11/17 11:38:00
--  
见三楼
[此贴子已经被作者于2015/11/17 11:41:37编辑过]

--  作者:czy66ds
--  发布时间:2015/11/17 11:41:00
--  
文本串行,用一个附件表示吧:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:wb.txt



--  作者:大红袍
--  发布时间:2015/11/17 11:51:00
--  

不为什么不用分组统计?最方便就是分组统计。

 

或者你可以用汇总模式

 

Dim t As Table = Tables("订单")
Dim g As Subtotalgroup

t.ResumeRedraw()
t.StopRedraw()
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True

 

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "客户"
g.TotalOn = "数量"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

 

t.Subtotal()
t.Grid.Tree.Show(0)
t.ResumeRedraw()