主题：增加子节点父键要保持和已有分组不变

此主题相关图片如下：qq截图20180807123637.png

老师如图，增加子节点时，父键和对应的分组父键一致，父键时整数型（如果为字符型，父键出不来），代码怎么修改？

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim sd As WinForm.TreeNode=tr.SelectedNode '当前选择的项
Dim dt As DataTable=DataTables(vars("editTable"))

If sd Is Nothing Then Return
Dim name As String
Dim typ As String
If sd.Level = 1 Then
    MessageBox.Show("不能再增加子节点了!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Dim r As DataRow=dt.AddNew
    If sd.Level = 0 Then

        r("分组")=sd.Text
        r("名称")="新节点"
        r("父键")=dt.Compute("Max(父键)","父键 ='" & sd.name & "'")
    End If
    sd = sd.Nodes.Add("新节点")
    tr.SelectedNode = sd
    tr.Select
    tr.BeginEdit()
End If

 

 

上述代码报错：

 

.NET Framework 版本：2.0.50727.8745
Foxtable 版本：2018.7.28.1
错误所在事件：窗口,左侧导航管理,Button4,Click
详细错误信息：
无法在 System.Int32 和 System.String 上执行“=”操作。

  老师，是父键的值没传递过来，sd.name是选择的节点，怎么去过去该节点对应的父键的值呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目12.foxdb

老师，还不对，做了个示例，麻烦看看。

老师，是增加子项不对。

老师，这个代码没问题了，但新增加的子节点在表里面不能定位到该行。

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim sd As WinForm.TreeNode=tr.SelectedNode '当前选择的项
Dim mp As String="新节点"
If sd Is Nothing Then Return
Dim dt As DataTable=DataTables(vars("editTable"))
Dim r0 As Row =Tables(vars("editTable")).Current
Dim ary() As String={"父键"}
For Each ar As String In ary
    If r0("分组")=ar Then Return
Next
Dim name As String
Dim typ As String
If sd.Level = 1 Then
    MessageBox.Show("不能再增加子节点了!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Dim r As DataRow=dt.AddNew
    If sd.Level=0 Then
        name="分组"
        typ="新节点"
        r("父键")=dt.Compute("Max(父键)","分组 ='" & sd.name & "'")
        r("分组")=sd.name
        r("名称")=typ
    End If
    sd.Nodes.add(r("分组"),mp)
    sd.Expand
    Dim s As String=r("序号")
    tr.SelectedNode =sd.Nodes(s)
    tr.Select
End If

老师，新增加的节点还是定位不到新增加的行

AfterSelectNode代码如下：

With Tables(vars("editTable")) 
    Dim r As Integer
    If e.node.Level = 1 Then
        r = .Findrow("分组 = '" & e.Node.ParentNode.Name &  "' And 名称 = '" & e.Node.Name & "'")
    ElseIf e.node.Level = 0 Then
        r = .Findrow("分组 = '" & e.Node.Name &  "' And 名称 Is Null")
    End If
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With

老师，还有个问题，有通过右边记录窗口更改分组名或是新的节点名称，目录树怎么同时更新呢？

我增加了一个辅助列，DataColChanged代码如下，没有同步修改，哪儿逻辑不对呢?

 

If e.DataCol.Name = "序号" Then
    e.DataRow("辅助ID")="Add_" & e.DataRow("序号")
End If

'窗口控件同步修改
If e.DataCol.Name="名称" Or e.DataCol.Name="分组" Then
    Dim fn As winform.form=vars("editForm")
    If fn.Opened Then
        Dim tr As WinForm.TreeView = fn.Controls("TreeView1")
        For Each sd As  WinForm.TreeNode In tr.AllNodes
            If sd.Name=e.DataRow("辅助ID") Then
                sd.Name=e.NewValue
            End If
        Next
    End If
End If