- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 这样的表如何汇总 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31633)
-- 发布时间：2013/4/18 13:25:00
-- 这样的表如何汇总
表里有一级至四级科目,都是末级科目,有的科目是两级为末级,有的科目是四级为末级,都是不重复的值,如何生成:当末级为二级的直接按一级分组汇总,末级为四级的直接按三级/二级/一级汇,并显示在一张表上,请代码明示,谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.table |
-- 发布时间：2013/4/18 14:16:00
--
-- 发布时间：2013/4/18 15:06:00
--
老师您没明白我的意思,我是想要这样的表
一级科目不是开发成本时，统计一级科目，
一级科目是开发成本时，统计一级至三级
-- 发布时间：2013/4/19 10:45:00
--
为什么没人理我呀,我的问题还是没解决呀,我赏金200元解决此问题,决不食言
-- 发布时间：2013/4/19 10:50:00
--
实在没办法理解你想统计成什么样..你不如做个图+文字解说,展示一下你想要的结果.这样比较直观
-- 发布时间：2013/4/19 10:53:00
--
为什么没人理我呀,我的问题还是没解决呀,我赏金200元解决此问题,决不食言
很想挣这个200，可惜我是个菜鸟啊！
-- 发布时间：2013/4/19 11:31:00
--
我想要的是这样的表,不会传图片只能以附件形式,谢谢,解决问题得赏金
此主题相关图片如下：汇总样式.png
-- 发布时间：2013/4/19 12:06:00
--
Dim t As Table = Tables("目标成本")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "三级科目"
g.TotalOn = "目标成本"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "二级科目"
g.TotalOn = "目标成本"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "一级科目"
g.TotalOn = "目标成本"
g.Caption = "{0} 合计"
t.SubtotalGroups.Add(g)
t.Subtotal()
基本和你要的差不多，你再改下
-- 发布时间：2013/4/19 12:51:00
-- 不对我要的是这样的，你只是将汇总模式生成的代码又重罗列了一下，我的管理费用只汇总一级科目，开发成本才要汇总三二一级
此主题相关图片如下：汇总样式.png
-- 发布时间：2013/4/19 13:47:00
--
此主题相关图片如下：汇总样式.png