以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  汇总模式，目录树不要展开，其代码命令是什么  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21382)
--  作者：小狐
--  发布时间：2012/7/10 17:40:00
--  汇总模式，目录树不要展开，其代码命令是什么

帮助找了半天，没有找到

 
--  作者：小狐
--  发布时间：2012/7/10 18:14:00
--  

看了多遍，没有讲到如何收缩生成的目录树
--  作者：don
--  发布时间：2012/7/10 18:23:00
--  
窗口---目錄樹
--  作者：程兴刚
--  发布时间：2012/7/10 18:36:00
--  

如果是代码生成汇总模式，再次执行一下，我明白您的意思，记得贺老师说过，有这个方法，选定第几个分组！
--  作者：小狐
--  发布时间：2012/7/10 20:13:00
--  
以下是引用程兴刚在2012-7-10 18:36:00的发言：

如果是代码生成汇总模式，再次执行一下，我明白您的意思，记得贺老师说过，有这个方法，选定第几个分

程版真是知音，刚才又试了一下，还是没有搞定。请贺老师帮个忙
--  作者：程兴刚
--  发布时间：2012/7/10 21:07:00
--  

说明里面有个Level属性，我没找到方法如何用，好像在我的哪一个项目中有，我曾经问到过这个问题，我找找看在不在，也许找不到了！
--  作者：小狐
--  发布时间：2012/7/10 22:44:00
--  
好的，谢谢。汇总模式生成后，目录树都是展开的，数据量大，客户一下子就看晕了..........
--  作者：程兴刚
--  发布时间：2012/7/10 22:51:00
--  

我明白您的意思，想用代码模拟鼠标左键，点击汇总目录树左上角的1，将整个汇总目录树缩回，我没找到，等贺老师明天上来看看，以前有提起过，我的项目中没找到！

[此贴子已经被作者于2012-7-10 22:51:54编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/7/11 8:18:00
--  

不展开目录树，只需一行代码：

 

 

Dim t As Table = Tables("订单")
Dim g As Subtotalgroup
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)

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 = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()
t.Grid.Tree.Show(0)
t.ResumeRedraw()
--  作者：程兴刚
--  发布时间：2012/7/11 12:05:00
--  
假入我需要展开二级、三级，就修改那个参数0，对吗？