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


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

主题：目录树问题
帅哥哟，离线，有人找我吗？
jiangxun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：876 积分：5929 威望：0 精华：0 注册：2014/8/3 12:15:00 		目录树问题  发帖心情 Post By：2015/1/27 22:35:00 [只看该作者]

在帮助文档中“三层”目录树代码是：

        Dim dr As DataRow = DataTables("表A").AddNew
        If nd.Level = 0 Then
            dr("大类") = nd.Text
            dr("二类") = "新节点"
        ElseIf nd.Level = 1
            dr("大类") = nd.ParentNode.Text
            dr("二类") = nd.text
            dr("三类") = "新节点"
        End If
        nd = nd.Nodes.Add("新节点")

我需要“四层”目录树代码是下边这样么？

        Dim dr As DataRow = DataTables("表A").AddNew
        If nd.Level = 0 Then
            dr("大类") = nd.Text
            dr("二类") = "新节点"
        ElseIf nd.Level = 1
            dr("大类") = nd.ParentNode.Text
            dr("二类") = nd.text
            dr("三类") = "新节点"

        ElseIf nd.Level = 2
            dr("大类") = nd.ParentNode.Text
            dr("二类") = nd.ParentNode.Text
            dr("三类") = nd.text

            dr("四类") = "新节点"

        End If
        nd = nd.Nodes.Add("新节点")

请求帮助
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim dr As DataRow = DataTables("表A").AddNew
If nd.Level = 0 Then
    dr("大类") = nd.Text
    dr("二类") = "新节点"
ElseIf nd.Level = 1
    dr("大类") = nd.ParentNode.Text
    dr("二类") = nd.text
    dr("三类") = "新节点"
ElseIf nd.Level = 2
    dr("大类") = nd.ParentNode.ParentNode.Text
    dr("二类") = nd.ParentNode.Text
    dr("三类") = nd.text
    dr("四类") = "新节点"
End If
nd = nd.Nodes.Add("新节点")

 回到顶部
帅哥哟，离线，有人找我吗？
jiangxun
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：876 积分：5929 威望：0 精华：0 注册：2014/8/3 12:15:00 		  发帖心情 Post By：2015/1/27 22:53:00 [只看该作者]

图片点击可在新窗口打开查看谢谢了！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询