以文本方式查看主题

-  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=132712)
--  作者：swimmer01
--  发布时间：2019/3/28 10:20:00
--  [求助]目录树展开
老师好！
我用后台数据表做目录树，目录树有多级，我想在加载时只展开前几级，如何编程？谢谢！

e.Form.Controls("TreeView4").ExpandAll（这是全部展开）
--  作者：有点甜
--  发布时间：2019/3/28 10:33:00
--  
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView4")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level <= 2 Then
        nd.Expand
    End If
Next
--  作者：swimmer01
--  发布时间：2019/3/28 15:00:00
--  
谢谢！