主题：关于根据单列内容生成目录树

帮助里 编辑目录树之一 一样的东西，想不明白了！求各位大仙

 AfterEditNode

If e.NewText = "" Then
    e.Cancel = True
    Return
End If
Dim pth As String = e.Node.Fullpath
messagebox.show(pth)
DataTables("表A").ReplaceFor("类别路径", e.Node.FullPath,"类别路径 = '" & pth & "'")
e.Node.Name = e.NewText