Foxtable(狐表)用户栏目专家坐堂 → 目录树生成


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

主题:目录树生成

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


加好友 发短信
等级:四尾狐 帖子:843 积分:5982 威望:0 精华:0 注册:2013/6/29 9:36:00
目录树生成  发帖心情 Post By:2018/7/10 10:47:00 [只看该作者]

0_000188_000191_000248_000250_000256_000263

表中,有这样一个:列;用它生成目录树,怎么处理呢?  我感觉生成成:0   / 188/191这样的名称的目录树,是可以的。但是还得遍历这个NODE,再改名?好像挺慢的 
有没有哪种方法比较好的?
图片点击可在新窗口打开查看此主题相关图片如下:1111.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:843 积分:5982 威望:0 精华:0 注册:2013/6/29 9:36:00
  发帖心情 Post By:2018/7/10 10:53:00 [只看该作者]

http://www.foxtable.com/webhelp/index.htm?page=2474.htm

看到,帮助 了。生成了。

 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:843 积分:5982 威望:0 精华:0 注册:2013/6/29 9:36:00
  发帖心情 Post By:2018/7/10 11:05:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("材料分类表","PathKey","名称", "_")
    trv.Nodes(3).Expand()



trv.Nodes(0).Text = "所有材料"
执行它时:弹错:
指定的参数已超出有效值的范围。
参数名: index


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



 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:843 积分:5982 威望:0 精华:0 注册:2013/6/29 9:36:00
  发帖心情 Post By:2018/7/10 11:15:00 [只看该作者]

可以了。

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("材料分类表","PathKey","名称", "_")
    trv.Nodes(0).ExpandAll()
trv.Nodes(0).Text = "所有材料"

 回到顶部
帅哥哟,离线,有人找我吗?
yancheng
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:843 积分:5982 威望:0 精华:0 注册:2013/6/29 9:36:00
  发帖心情 Post By:2018/7/10 11:45:00 [只看该作者]

如果设置:材料表  ,的filter条件呢?
思路是:   材料表,的filter    = PathKey.StartsWith(" & e.Node.DataRow("PathKey")
但是这样写,是不对的。
要怎么写呢?
[此贴子已经被作者于2018/7/10 11:46:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/10 11:48:00 [只看该作者]

这个意思?

 

tables("材料表").filter = "PathKey like '" & e.Node.DataRow("PathKey") & "%'"

 

[此贴子已经被作者于2018/7/10 11:48:35编辑过]

 回到顶部