以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]分级数据能不能用代码实现?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172774)

--  作者:zto001
--  发布时间:2021/10/30 19:15:00
--  [求助]分级数据能不能用代码实现?
[求助]分级数据能不能用代码实现?
--  作者:狐狸爸爸
--  发布时间:2021/10/30 19:39:00
--  
http://www.foxtable.com/webhelp/topics/3348.htm


--  作者:zto001
--  发布时间:2021/10/30 21:17:00
--  
Dim st As New LayerTreeSetting
st.PathCol = "零"
st.Separator = "."
st.TreeCol  = "壹"
st.AggregateCols = {"肆"}
st.UseStyle = True
Tables("物流明细_Table1").ShowGridTree(st)

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20211030211543.png
图片点击可在新窗口打开查看


零拾分级的列,+-在贰,壹贰叁都是字符串,只有肆是整数
这个不能针对窗口表吗?
老是
从字符串“”到类型“Integer”的转换无效。
[此贴子已经被作者于2021/10/30 21:23:41编辑过]

--  作者:zto001
--  发布时间:2021/10/31 12:33:00
--  
Dim st As New GroupTreeSetting()
st.GroupCols = {"零"}
st.AggregateCols = {"壹"}

Tables("物流明细_Table1").ShowGridTree(st)
这样才能用。如果我要求自动打开某个指定的折叠行或者全部打开怎么弄?

--  作者:有点蓝
--  发布时间:2021/10/31 20:26:00
--  

ShowGridTree(层级)

Table的ShowGirdTree方法用于生成折叠模式。

折叠模式非常强大,如果你对折叠模式还不熟悉,请务必先回到使用指南学习相关知识。

对于层级表,生成折叠模式的语法是:

ShowGridTree(Setting)

Setting: LayerTreeSetting类型,用于设置折叠模式属性。

LayerTreeSetting的相关属性有:

PathCol:       字符型,指定层级列
TreeCol:       字符型,指定折叠树显示列名称,如果不设置,默认显示在层级列。
Separator:     字符型,如果层级列是用符号分割的,可用此属性指定分割符号,参考:用符号分割
Lengths:       整数型数组,如果层级列是按长度分割的,可用此属性指定各级长度。参考:按长度分割  不等长分割
SortCol:       字符型,指定排序列,参考:指定排序列  保存行顺序
SortDesc       逻辑型,是否降序排序
AggregateCols: 字符数组,指定要汇总的列,参考:汇总数据  汇总值和原始值
UseStyle:      逻辑型,是否使用样式区分分组行,参考:使用样式区分行
ExpandTo:      整数型,指定折叠树默认展开级别,默认为0,也就是都不展开,如果设置为-1,则全部展开。


--  作者:zto001
--  发布时间:2021/11/22 14:17:00
--  
st.ExpandTo=-1

不对呀  不是GroupTreeSetting的

--  作者:zto001
--  发布时间:2021/11/22 14:17:00
--  
Dim st As New GroupTreeSetting()
st.GroupCols = {"零"}
st.AggregateCols = {"壹"}

Tables("物流明细_Table1").ShowGridTree(st)
我现在只有这个代码才能用。
其他的层级之类的没用

--  作者:有点蓝
--  发布时间:2021/11/22 14:36:00
--  
目前没有,我反馈一下,看能不能加上
--  作者:有点蓝
--  发布时间:2021/11/22 14:41:00
--  
可以使用汇总模式的用法

Tables("物流明细_Table1").Grid.Tree.Show(10)

--  作者:有点蓝
--  发布时间:2021/11/22 14:57:00
--  
这样用

Dim st As New GroupTreeSetting()
st.GroupCols = {"零"}
st.AggregateCols = {"壹"}

Tables("物流明细_Table1").ShowGridTree(st,-1) 第二个参数为展开层次