带查找功能的下拉目录树，如何实现如下功能？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 带查找功能的下拉目录树，如何实现如下功能？

共有2651人关注过本帖树形打印复制链接主题：带查找功能的下拉目录树，如何实现如下功能？

旭日生

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：340 积分：3375 威望：0 精华：0 注册：2011/3/22 22:52:00

带查找功能的下拉目录树，如何实现如下功能？ 发帖心情

Post By：2018/9/25 22:46:00 [只看该作者]

版主，怎样实现如下目标？

1、增加一个按钮“全部打开”，即搜索某一个关键字，如“河“，下拉窗口自动打开所有节点包含”河“字的所有节点（不管是一级、二级、三级，还是四级、五级！）。

2、搜索区号中包含”311“，则打开所有包含”311“所对应的所有节点（也不管是一级、二级、三级，还是四级、五级！）。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.foxdb

[此贴子已经被作者于2018/9/25 22:47:34编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110629 积分：563047 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/9/25 23:06:00 [只看该作者]

textchanged事件

Dim drp As WinForm.DropDownBox = e.sender

If drp.DroppedDown Then '如果下拉窗口已经打开

Dim txt As String = Forms("窗口1").DropDownBox.Text

If txt = "" Then

Return

End If

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

'e.Form.StopRedraw

'trv.StopRedraw

Dim p As WinForm.TreeNode

For i As Integer = 0 To trv.AllNodes.count - 1

Dim nd As WinForm.TreeNode = trv.AllNodes(i)

If nd.Text.IndexOf(txt) >= 0 Then

nd.EnsureVisible

Application.Doevents

End If

'trv.ResumeRedraw

'e.Form.ResumeRedraw

End If

主题：带查找功能的下拉目录树，如何实现如下功能？