- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 那么加四层五层节点 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157388)
-- 发布时间：2020/10/14 11:48:00
-- 那么加四层五层节点
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode
If nd IsNot Nothing Then
If nd.Level = 2 Then
MessageBox.Show("最多允许三层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
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("新节点")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()
End If
End If
那么加四层五层节点
-- 发布时间：2020/10/14 12:04:00
--
If nd IsNot Nothing Then
If nd.Level = 5 Then
MessageBox.Show("最多允许三层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
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("4类") = "新节点"
ElseIf nd.Level = 3
……
……
End If
nd = nd.Nodes.Add("新节点")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()
End If
End If
-- 发布时间：2020/10/14 13:21:00
--
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim id As Integer = nd.index
If nd.ParentNode Is Nothing Then
nd = tr.Nodes.Insert("新节点",id)
Else
nd = nd.ParentNode.Nodes.Insert("新节点",id)
End If
tr.SelectedNode = nd
tr.Select
tr.BeginEdit
插入节点什么没反应
-- 发布时间：2020/10/14 13:39:00
--
我测试 没有问题，请上传实例说明
-- 发布时间：2020/10/14 13:42:00
--
插入节点窗口上有 ，表里没有
-- 发布时间：2020/10/14 13:44:00
--
此主题相关图片如下：捕获.png
什么加一个节点会加三行上去
-- 发布时间：2020/10/14 13:54:00
--
没看到往表格里加数据的代码？!!
-- 发布时间：2020/10/14 14:01:00
--
那个节点什么加一个加一行，3列节点全部都有内?什么只让他加一行
-- 发布时间：2020/10/14 14:30:00
--
写了什么代码？？？？
-- 发布时间：2020/10/14 14:32:00
--
此主题相关图片如下：捕获.png
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode
If nd IsNot Nothing Then
If nd.Level = 2 Then
MessageBox.Show("最多允许三层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
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("新节点")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()
End If
End If