以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97236)
--  作者：xqj6200
--  发布时间：2017/3/8 14:37:00
--  目录树
表A中第一列内容：201-1，201-1-a,201-1-b,201-1-c
生成如下目录：
201-1
    201-1-a
    201-1-b
    201-1-c
--  作者：有点色
--  发布时间：2017/3/8 15:03:00
--  

方法一：

 

http://www.foxtable.com/webhelp/scr/1970.htm

 

方法二：你要生成基层？详细数据是什么的？需要编写代码，上传实例。
--  作者：xqj6200
--  发布时间：2017/3/8 16:43:00
--  
细目号 细   目   名   称 单位 数量 单价 合价
202-1 清理与掘除 　 　 　 　
202-1-a 清理现场 m2 　 　 　
202-1-b 砍伐树木 棵 　 　 　
202-1-c 挖除树根 棵 　 　 　
202-2 挖除旧路面 m2 　 　 　
202-2-a 水泥混凝土路面 m2 　 　 　
202-2-b 沥青混凝土路面 m2 　 　 　
202-2-c 碎石路面 m2 　 　 　
202-3 拆除结构物
 　 　 　 　
--  作者：xqj6200
--  发布时间：2017/3/8 16:48:00
--  
想用“细目号”建立目录树，但目录树中子目录能显示父目录内容，即最终生成的目录格式为
202-1
        202-1-a
        202-1-b
        202-1-c
202-2
        202-2-a
        202-2-b
        202-2-c
202-3

没有画目录线
请给予指导为谢
--  作者：xqj6200
--  发布时间：2017/3/8 17:11:00
--  

想用“细目号”建立目录树，但目录树中子目录能显示父目录内容，即最终生成的目录格式为

200

202-1

     202-1-a

          202-1-b

          202-1-c

202-2

          202-2-a

          202-2-b

          202-2-c

202-3

没有画目录线，Greatetree()无法显示父目录内容

请给予指导为谢
--  作者：有点色
--  发布时间：2017/3/8 17:23:00
--  

生成以后，循环每一行，修改节点的text属性即可，如

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    nd.Text = nd.FullName.replace("\\", "-")
Next

 

不会做，上传实例。
--  作者：xqj6200
--  发布时间：2017/3/9 17:13:00
--  
谢谢，已解决