专家坐堂-用数据表保存分类的情况下目录树怎样增加同级？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用数据表保存分类的情况下目录树怎样增加同级？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94603)

--  作者：huangxueyao
--  发布时间：2016/12/27 18:12:00
--  用数据表保存分类的情况下目录树怎样增加同级？
http://help.foxtable.com/scr/2474.htm

在这个案例中，怎样写【增加同级】代码，当所选是根节点时，就增加同级根节点，当前节点是子节点时，就增加同级子节点。

我写了不少次代码，但是都不对~~

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode

If nd IsNot Nothing Then
Dim dr As DataRow = DataTables("商品分类").AddNew
\'Dim id As Integer = nd.index
If nd.Level = 0 Then
dr("大类")="新节点"
nd = tr.Nodes.Add("新节点")
ElseIf nd.Level = 1
dr("大类")=nd.ParentNode.text
dr("小类")= "新节点"
nd = nd.Nodes.Insert("新节点",0)
End If

tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()
End If

当前节点是根节点时，就正确；
当前节点是子节点时，就不对……

求解答~

--  作者：huangxueyao
--  发布时间：2016/12/27 18:13:00
--
改add方法也不对

--  作者：有点色
--  发布时间：2016/12/27 18:22:00
--

nd = nd.ParentNode.Nodes.add("新节点")

--  作者：huangxueyao
--  发布时间：2016/12/27 19:56:00
--

【追问】
5、“增加子节点”按钮的Click事件代码：
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

上面这段代码会出现一个问题，因为前面增加根节点时，是通过addnew来实现的，现在增加子节点也是addnew，这样就会产生一行只有根节点，没有子节点的记录，应该怎样完善这个代码？

--  作者：有点蓝
--  发布时间：2016/12/27 20:43:00
--
示例这个代码不会有这种情况，所有节点列都赋值了的。

如果放在你的项目有问题，请上传你的代码说明

--  作者：huangxueyao
--  发布时间：2016/12/27 21:20: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 = 1 Then
MessageBox.Show("最多允许两级分类!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Dim dr As DataRow = DataTables("商品分类").AddNew
If nd.Level = 0 Then
dr("大类") = nd.Text
dr("小类") = "新节点"
\'ElseIf nd.Level = 1
\'dr("大类") = nd.ParentNode.Text
\'dr("二类") = nd.text
\'dr("三类") = "新节点"
End If
End If
nd = nd.Nodes.Add("新节点")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()
End If

我就是用示例代码改的，不知道哪里搞错了。

目录树AfterEditNode事件代码：
If e.NewText = "" Then
e.Cancel = True
Return
End If
Dim pth() As String = e.Node.FullPath.Split("\\")
Select Case e.node.Level
Case 0
DataTables("商品分类").ReplaceFor("大类",e.NewText,"大类 = \'" & pth(0) & "\'")
Case 1
DataTables("商品分类").ReplaceFor("小类",e.NewText,"大类 = \'" & pth(0) & "\' And 小类 = \'" & pth(1) & "\'")
\'Case 2
\'DataTables("表A").ReplaceFor("三类",e.NewText,"大类 = \'" & pth(0) & "\' And 二类 = \'" & pth(1) & "\' And 三类 = \'" & pth(2) & "\'")
End Select
e.Node.Name = e.NewText

--  作者：有点蓝
--  发布时间：2016/12/27 21:44: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 = 1 Then
MessageBox.Show("最多允许三层节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Dim dr As DataRow
If nd.Nodes.Count = 0 Then
dr = DataTables("表B").Find("大类=\'" & nd.Text & "\'","[_Identify] desc")
Else
dr = DataTables("表B").AddNew
End If
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

--  作者：npcwu
--  发布时间：2017/2/7 21:45:00
--
我也遇到同一问题。主要是增加子节点时出现。比如要在同一行里，增加3个节点。点三次“增加子节点”。就会出来3行。

此主题相关图片如下：截图未命名.jpg

[此贴子已经被作者于2017/2/7 21:45:24编辑过]

--  作者：有点蓝
--  发布时间：2017/2/7 21:49:00
--
上传你的例子说明

--  作者：npcwu
--  发布时间：2017/2/7 22:21:00
--
就是用的示例文件里的“参考CaseStudy目录下的文件：目录树与数据表.Table”