以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教老师关于折叠表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=196307)

--  作者:fvcfox
--  发布时间:2025/4/17 8:22:00
--  请教老师关于折叠表
在折叠状态下使用
For Each cr As Row in table1
next
它会遍历子行吗,如果会遍历。如果有多个2级子行,每个2级子行又有多个3级子行,它遍历顺序是2...3,2...3还是2...2,3...3?

--  作者:有点蓝
--  发布时间:2025/4/17 8:54:00
--  
会遍历,按折叠后行的可见顺序遍历。就是折叠后看到是怎么样的顺序就是怎么样的:http://www.foxtable.com/webhelp/topics/3435.htm
[此贴子已经被作者于2025/4/17 8:54:48编辑过]

--  作者:fvcfox
--  发布时间:2025/4/17 9:49:00
--  
怎样计算当前折叠行的子行中的最末级的最大级数
[此贴子已经被作者于2025/4/17 9:51:16编辑过]

--  作者:有点蓝
--  发布时间:2025/4/17 10:07:00
--  
http://www.foxtable.com/webhelp/topics/3386.htm

Dim cr As Row = Tables("物料清单A").Current
If
  Tables("物料清单A").GridTreeVisible Then
dim 最大级数 as integer
    Dim rs As List(of Row) = cr.GetChildren(True)
    
For Each r As Row In rs
       if r.Hierarchy > 最大级数 then 最大级数 = r.Hierarchy
    Next
msgbox("最大级数=" & 最大级数)
End If