以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何合目录树的第3层是收缩的  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165869)

--  作者:bashanren
--  发布时间:2021/5/16 8:58:00
--  [求助]如何合目录树的第3层是收缩的


图片点击可在新窗口打开查看此主题相关图片如下:1621125853(1).png
图片点击可在新窗口打开查看

各位老师上午好!

我建的目录树,如上图所示,想打开目录树时,第3层“姓名”这一层是收缩的,不是默认为展开的,请老师们指导,谢谢各位老师!!

 

在目录树的DropDownOpening中代码如下:

Dim filter As String
If CurrentTable.Cols.Contains("hzXM") Then
    If CurrentTable.Current.IsNull("hzXM") = False
        filter = "hzXM=\'" & CurrentTable.Current("hzXM") & "\'"    \'对活动表进行筛选
    End If
Else
    If CurrentTable.Current.IsNull("hzXM") = False
        filter = "hzXM=\'" & CurrentTable.Current("hzXM") & "\'"    \'对活动表进行筛选
    End If
End If

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("BCDXXX","xzMC|cunMC|szBE|hzXM",filter) \'--------以乡镇名称,村,社,户主姓名为目录列


Dim r As Row = CurrentTable.current
trv.Nodes.Insert("选择户主姓名",0)
trv.ExpandAll


--  作者:有点蓝
--  发布时间:2021/5/16 20:30:00
--  
trv.ExpandAll

改为

for each node as treenode in trv.Nodes
node.Expand
next