以文本方式查看主题

-  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=47541)

--  作者:jnletao
--  发布时间:2014/3/12 10:14:00
--  [求助]根据单列内容生成目录树之根节点后移
在 CreateTree 根据单列内容生成目录树。 这一章里有如下效果

图片点击可在新窗口打开查看此主题相关图片如下:tm截图20140303100718.png
图片点击可在新窗口打开查看

假设 我想调用的目录树 不想显示 根节点 【家电产品】【数据产品】,而是直接以它们的子节点 开头 该如何办?

这里情况特别适合 单 根节点显示

比如我的 窗体里 只想调用 数码产品 类别
那么他的默认显示效果如下,

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

而我想要的效果是:


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





--  作者:xiaofengfeng
--  发布时间:2014/3/12 10:20:00
--  
afterload中编写
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("计算机", "电脑列|详细")

--  作者:xiaofengfeng
--  发布时间:2014/3/12 10:20:00
--  
  afterload中编写
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("表名", "列名|列名")

--  作者:xiaofengfeng
--  发布时间:2014/3/12 10:23:00
--  

要单击的话在click中编写


--  作者:Bin
--  发布时间:2014/3/12 10:23:00
--  
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree(
"表A","类别","\\","类别 like \'数码产品*\'"
)

只能做到这样,如果还一定要去掉根节点就需要递归生成了.