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

Dim q As new QueryBuilder
q.TableName = "窗口结构"
q.SelectString = "Select * From [~TMPCLPuglytbpn] where parentkey Is null"
q.Build

 Dim ex As New Exporter
ex.SourceTableName = "窗口结构" '指定导出表
ex.FilePath = "c:\Data\窗口结构.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export() '开始导出

DataTables.Unload("窗口结构")

Dim ip As New Importer
ip.SourcePath = "c:\Data\窗口结构.xls" '指定数据文件
ip.SourceTableName = "窗口结构" '指定要导入的表
ip.NewTableName ="窗口结构" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()

 不要分拆啊。有可能节点不止3层啊

 path 和 name 组合成一个表达式

 然后，用CreatTree函数 http://www.foxtable.com/help/topics/1970.htm