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

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

上述代码报错：

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

1、编辑目录树，请这样做

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

点击浏览该文件:编辑目录树例子.table

2、改成

msgbox(sd.name)

r("父键")=dt.Compute("Max(父键)","父键=" & sd.name)

以下是引用有点甜在2018/8/7 14:23:00的发言：

1、编辑目录树，请这样做

 

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

点击浏览该文件:编辑目录树例子.table

 

2、改成

 

msgbox(sd.name)

r("父键")=dt.Compute("Max(父键)","父键=" & sd.name)

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

r("父键")=dt.Compute("Max(父键)","父键 =\'" & sd.parentNode.name & "\'")

老师，是增加子项不对。

类似参考

    r("父键")=dt.Compute("Max(父键)","分组 =\'" & tr.SelectedNode.ParentNode.name & "\'")+1
    r("分组")= "新节点"
    r("名称")=""
    Dim mynd = tr.SelectedNode.ParentNode.Nodes.add(r("分组"),mp)
    tr.SelectedNode=mynd

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

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