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

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

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