以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请解释一下---"将其内容复制粘贴到数据表中的用于存储目录树的备注列中"  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100097)
--  作者：sun2842451
--  发布时间：2017/5/4 17:49:00
--  请解释一下---"将其内容复制粘贴到数据表中的用于存储目录树的备注列中"

示例二

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

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

提示：在窗口设计的章节，我们还会介绍如何自己编写一个目录树编辑器，这样可以将目录树编辑和自己的系统更为紧密地结合起来。


请解释一下---"将其内容复制粘贴到数据表中的用于存储目录树的备注列中" 

我没找到“用于存储目录树的备注列”  谢谢！
--  作者：有点色
--  发布时间：2017/5/4 18:51:00
--  

 你可以自己添加一个表、一个列，把字符串复制进去就好了。

 

 想生成目录树，就去那个单元格的值，赋值给s，即可
--  作者：sun2842451
--  发布时间：2017/5/5 9:48:00
--  应该是这样的！
Dim s As String
\'请在这里设置代码从数据表中获得目录树字符串,并赋值给变量s
Dim tb As New DropTreeBuilder
tb.TreeString ="Name 数码产品 Text 数码产品 Inner Name 电脑 Text 电脑 Inner Name 笔记本 Text 笔记本 Name 服务器 Text 服务器 Name 台式机 Text 台式机 Inner Name 巨型台式机 Text 巨型台式机 Name 中型台式机 Text 中型台式机 Name 小型台式机 Text 小型台式机 Outer 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"
tb.ReceiveCols = "第一列|第二列|第三列|第四列" \'指定数据接收列
Tables("表A").Cols("第三列").DropTree = tb.Build()
--  作者：有点色
--  发布时间：2017/5/5 10:06:00
--  
 是的，你的内容应该存放在表里面，因为有特殊字符，你直接复制粘贴还不行。
--  作者：sun2842451
--  发布时间：2017/5/5 16:47:00
--  
我试验了，是可以运行的！