用于给列生成下拉目录树，...

示例二

在网络环境下使用文件型目录树不太方便，更方便的是将目录树存储在数据表中，用于存储目录树的列最好是备注型
虽然目录树文件的后缀名为foxtr，但其实是一个纯文本文件，可以用记事本打开，将其内容复制粘贴到数据表中的用于存储目录树的备注列中。

Dim s As String
\'请在这里设置代码从数据表中获得目录树字符串,并赋值给变量s
Dim tb As New DropTreeBuilder
tb.TreeString = s \'设置目录树字符串
tb.ReceiveCols = "大类|二类|三类" \'指定数据接收列
Tables("订单").Cols("大类").DropTree = tb.Build()

问题：用记事本打开后，将其内容直接复制粘贴到数据表中的用于存储目录树的备注列中的时候，为什么生成不了树结构？复制出来的格式是什么样子，能否做个简单的实例？谢谢。

你好，我正是按要求这么做了，但目录树就是出不来，试了多种方式，搞的我两天没办法完成，只好求救了。

如我把下列放入备注列，再引用，就无法实现目录树：

Name 数码产品 Text 数码产品 Inner Name 电脑 Text 电脑 Inner Name 笔记本 Text 笔记本 Name 服务器 Text 服务器 Name 台式机 Text 台式机 Outer Name 电脑配件 Text 电脑配件 Inner Name 机箱 Text 机箱 Name 主板 Text 主板 Outer Name 相机 Text 相机 Inner Name DC Text DC Name DV Text DV Outer Outer Name 家电产品 Text 家电产品 Inner Name 电视机 Text 电视机 Inner Name CRT电视 Text CRT电视 Name 液晶电视 Text 液晶电视 Outer Outer

不要直接复制粘贴，因为目录树文件有一小些特殊符号，复制粘贴的过程会丢失。

你可以用代码将目录树文件的内容写入到表中：

dim s as string = filesys.Readalltext("G:\\测试\\CaseStudy\\product.foxtr")
Tables("表A").Current("备注") = s

这样就不会有问题了

谢谢，我试了一下，文本中是多了一些小符号，但是引用后还是无法实现目录树。能否做个小例子上传学习一下？