主题：窗口目录树取值问题

  直接写代码

Dim ary() As String = e.Node.FullPath.Split("\")
Dim r As Row = Tables("表A").current
If ary.length > 0 Then r("第一列") = ary(0)
If ary.length > 1 Then r("第二列") = ary(1)
If ary.length > 2 Then r("第三列") = ary(2)
 

 不会做，上传具体实例说明情况