Foxtable(狐表)用户栏目专家坐堂 → [求助]如何合目录树的第3层是收缩的


  共有4108人关注过本帖树形打印复制链接

主题:[求助]如何合目录树的第3层是收缩的

帅哥哟,离线,有人找我吗?
bashanren
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:2899 威望:0 精华:0 注册:2009/7/25 18:29:00
[求助]如何合目录树的第3层是收缩的  发帖心情 Post By:2021/5/16 8:58:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下: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


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/16 20:30:00 [只看该作者]

trv.ExpandAll

改为

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



 回到顶部