主题：这个表怎么引用 将得到的数据写进数据表 然后对应的根据这个数据表来生成目录树呢？

这个表怎么引用 将得到的数据写进数据表 然后对应的根据这个数据表来生成目录树呢？

Select * From [~TMPCLPuglytbpn] where parentkey is null

利用如上代码可以获取当前窗口管理中的所有窗体目录 次目录及窗体名称还有排序

但是仅限于内部数据表

怎么将这个表得到的数据 生成正式表呢？

此主题相关图片如下：qq图片20141123205152.jpg

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

点击浏览该文件:获取窗口管理器中的窗体目录和窗体名称.foxdb

有点甜老师    我延伸了如下代码

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("系统目录树") '创建表
With tbl
    .AddColumn("系统分类" ,ADOXType.String, 12)
    .AddColumn("子系统" ,ADOXType.String, 20)
    .AddColumn("子节点" ,ADOXType.String, 20)
    .AddColumn("用户名" ,ADOXType.String, 20)

End With
Builder.AddTable(tbl) '增加表

Dim R As Row =Tables("窗口结构").Current
Dim Tel As String = r("pth")
Dim Parts() As String = Tel.Split("\")
Output.Show("根目录:" & Parts(0))
Output.Show("子目录:" & Parts(1))
'Output.Show("子节点:" & Parts(2))
Output.Show("窗口名:" & r("name"))
Tables("系统目录树").AddNew()
Dim s As Row=Tables("系统目录树").Current
s("系统分类")= Parts(0)
s("子系统")= Parts(1)
s("子节点")=  r("name")
's("用户名")=  r("name")

Syscmd.Project.Open(ProjectFile)

初步可以实现当前行拆分字符然后赋值

但是怎么实现所有的这个字段值都进行拆分后自动写入系统目录树表呢？

是的  我本来也没打算分拆

但是新问题出现 

怎么用这个生成目录树导航呢？

按照常规的生成目录树的方法 在这里不适用了