- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求一个目录树模糊查找的代码改进方法 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89277)
-- 发布时间：2016/8/18 14:20:00
-- 求一个目录树模糊查找的代码改进方法
我的目录树生成的代码是这样的
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("companyinformation","公司编号","公司名称",".")
For Each nd As WinForm.TreeNode In trv.AllNodes \'遍历所有节点
nd.Text = nd.DataRow("公司编号") & " " & nd.text
Next
-- 发布时间：2016/8/18 14:24:00
-- 我
我现在做了个文本框和搜索按钮效果如图所示，只有当文本框内容与节点内容完全一样的时候才能搜到，你也看到了我的节点名字是编号+空格+名称的形式。
我现在的搜索按钮代码是如下
Dim trv2 As winform.treeview = e.Form.controls("treeview2")
Dim nm As String = e.Form.controls("textbox12").value
For Each nd As WinForm.TreeNode In trv2.AllNodes
If nd.text = nm Then
trv2.SelectedNode = nd
nd.EnsureVisible()
End If
Next
此主题相关图片如下：97.png
-- 发布时间：2016/8/18 14:26:00
-- 这种
这种方式下必须文本框与节点内容完全一样才能搜到，如图中的只有编号没有名称的那些节点都搜不到，我想将搜索按钮的代码改进一下
改成模糊查找模式，就是说不管输入的是 编号或者名称中的任何一个字，空格除外，都可以搜到相关的节点，类似列属性的输入助手类似的东西。
求大神改进一下代码，谢谢啦。
-- 发布时间：2016/8/18 15:08:00
--
Dim trv2 As winform.treeview = e.Form.controls("treeview2")
Dim nm As String = e.Form.controls("textbox12").value
For Each nd As WinForm.TreeNode In trv2.AllNodes
If nd.text.Contains(nm) Then
trv2.SelectedNode = nd
nd.EnsureVisible()
Exit For
End If
Next
-- 发布时间：2016/8/18 15:49:00
-- 然后不是这样的
如图，带公司2个字的显示出来，不带公司2个字的可以不显示出来，代码怎么改，你写的那个代码最后只定位到最后一行上了，其他的一栏而过并没有留下记号。
此主题相关图片如下：987.png
此主题相关图片如下：988.png
-- 发布时间：2016/8/18 17:28:00
--
重新生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("companyinformation","公司编号","公司名称",".", "某列 like \'%123%\'")
-- 发布时间：2016/8/18 22:27:00
--
就一个目录树，依次点开也不费事!
-- 发布时间：2016/8/21 11:02:00
-- 0.0目前用节点图标暂时
0.0目前用节点图标暂时，不过比较麻烦要有的地方重新加载树什么的，不完美，条数多的时候还是有必须区搜索的。
-- 发布时间：2016/8/21 14:02:00
--
上一条下一条，也很好实现吧？
http://www.foxtable.com/webhelp/scr/2961.htm
-- 发布时间：2016/8/21 15:26:00
-- 不想要上一条下一条赛
比如搜索1，所有含1字符的节点图标都改变。这个如果不用复选框，只用图标的话貌似只能指定图标的图案了，有点不完美，不知道有没有其他方案，前提不实用复选框