Foxtable(狐表)用户栏目专家坐堂 → 目录树添加节点报错


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

主题:目录树添加节点报错

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/29 10:45:00 [显示全部帖子]

没必要这样处理,如果要得到各个节点的值,参考这种做法(FullPath),如

 

Dim Value() As String
Value = nd.FullPath.Split("\")

msgbox(value.length)

msgbox(value(0))

msgbox(value(1))

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/29 10:57:00 [显示全部帖子]

Dim tr As WinForm.TreeView
tr = e.Form.Controls("TreeView2")
Dim nd As WinForm.TreeNode
nd = tr.SelectedNode
Dim ary = nd.FullPath.Split("\")
If nd IsNot Nothing Then
    If nd.Level = 5 Then
        MessageBox.Show("最多允许六层结构!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Dim dr As DataRow = DataTables("组织机构和职责").AddNew
        If nd.Level = 0 Then
            dr("企业名称") = ary(0)
            dr("部门设置") = "新节点"
        ElseIf nd.Level = 1
            dr("企业名称") = ary(0)
            dr("部门设置") = ary(1)
            dr("岗位设置") = "新节点"
        ElseIf nd.Level = 2
            dr("企业名称") = ary(0)
            dr("部门设置") = ary(1)
            dr("岗位设置") = ary(2)
            dr("第四层机构设置") = "新节点"
        ElseIf nd.Level = 3
            dr("企业名称") = ary(0)
            dr("部门设置") = ary(1)
            dr("岗位设置") = ary(2)
            dr("第四层机构设置") = ary(3)
            dr("第五层机构设置") = "新节点"
        ElseIf nd.Level = 4
            dr("企业名称") = ary(0)
            dr("部门设置") = ary(1)
            dr("岗位设置") = ary(2)
            dr("第四层机构设置") = ary(3)
            dr("第五层机构设置") = ary(4)
            dr("第六层机构设置") = "新节点"
        End If
        nd = nd.Nodes.Add("新节点")
        tr.SelectedNode = nd
        tr.Select()
        tr.BeginEdit()
    End If
End If

 回到顶部