[求助]插入节点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，

对于插入节点不是特别清楚，求老师解疑：

例子在在老板前“插入角色”，发现两个问题

1、在老板上插入结构，发现新增加的节点也会继承老板的“使用”状态，导致“问题1”的Button 不可用

2、”架构“表，同样又增加一行”老板“

求老师指点及代码。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:用户.foxdb

这个意思？

        Case 0
            ns = tr.Nodes.Insert("新架构"& tr.Nodes.Count()+1,id)
            tr.SelectedNode=ns
            Dim dr As DataRow = DataTables("架构").AddNew
            dr("架构名称")=ns.FullPath
            dr("使用") = False
            tr.SelectedNode = ns
            MessageBox.Show(ns.Name)
            tr.Select
            tr.BeginEdit
            Vars("numbh")=Vars("numbh")+1

看到了， dr("架构名称")=ns.FullPath

大红袍老师，

点击左面的目录树”老板“，点击”插入架构“，会发现”新架构“节点增加进去了，但是这个按钮的状态不对

此主题相关图片如下：是否可用与

同时表中出现两个"老板"

此主题相关图片如下：表里出现两个老板.jpg

什么不对，取决于你的赋值啊 dr("使用") = False

老师，

dr("使用") = False 去掉一样不行不是这句的问题

老师，

在”老板“上面插入新节点，达到：

Button 问题1 是否可用自动根据对应的行”使用“的状态变成可编辑

然后架构表显示”新架构"

怎么实现

方法一根据nd节点的name或text去查找对应的行，然后赋值

方法二生成目录树的时候，用tag属性记录使用的值，需要的时候直接用节点的属性即可

老师，

我上传的例子，属于方法一，没看出代码哪里不正确，但是没实现啊。

老师，是不是节点增加进去，但是行还是原来节点的位置呢？

If tr.Nodes.Count=0 Then

MessageBox.Show("请先增加根节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Dim id As Integer = nd.index

Select nd.Level

Case 0

ns = tr.Nodes.Insert("新架构"& tr.Nodes.Count()+1,id)

tr.SelectedNode=ns

Dim dr As DataRow = DataTables("架构").AddNew

dr("架构名称")=ns.FullPath

dr=DataTables("架构").Find("架构名称='"& ns.FullPath &"'") 重新定位到对应的行

If dr IsNot Nothing Then

If dr("使用")=False Then

For i=4 To 9

e.Form.Controls("Button" & i).Enabled=True

Else

For i=4 To 9

e.Form.Controls("Button" & i).Enabled=False

End If

tr.SelectedNode = ns

tr.Select

tr.BeginEdit

Vars("numbh")=Vars("numbh")+1

Case Else

ns= nd.ParentNode.nodes.Insert("点"& tr.Nodes.Count()+1,id)

tr.SelectedNode=ns

Dim dr As DataRow = DataTables("架构").AddNew

dr("架构名称")=ns.FullPath

dr=DataTables("架构").Find("架构名称='"& ns.FullPath &"'")

If dr IsNot Nothing Then

If dr("使用")=False Then

For i=4 To 9

e.Form.Controls("Button" & i).Enabled=True

Else

For i=4 To 9

e.Form.Controls("Button" & i).Enabled=False

End If

tr.Select

tr.BeginEdit

Vars("numbh")=Vars("numbh")+1

End Select

End If

主题：[求助]插入节点