以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何生成临时表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=14978)
--  作者：ajim
--  发布时间：2011/12/8 17:08:00
--  请问如何生成临时表

Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("分类") \'指定目录树表
tb.TreeCols = "{分类}" \'指定用于生成目录树的列,用大括号括起来
tb.ReceiveCols = "大类|二类|三类" \'指定数据接收列
tb.PathSeparator = "|" \'指定路径分割符号
Tables("订单").Cols("大类").DropTree = tb.Build()

 

而我想这样

Dim tb As New DropTreeBuilder
tb.SourceTable = Tables("地接.行程") \'指定目录树表
tb.TreeCols = "{分类}" \'指定用于生成目录树的列,用大括号括起来
tb.ReceiveCols = "大类|二类|三类" \'指定数据接收列
tb.PathSeparator = "|" \'指定路径分割符号
Tables("订单").Cols("大类").DropTree = tb.Build()

所以我想直接把Tables("地接.行程")  复制到临时表DataTables("分类") 中有这种函数吗
--  作者：狐狸爸爸
--  发布时间：2011/12/8 17:22:00
--  

Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("行程") \'指定目录树表
tb.TreeCols = "{分类}" \'指定用于生成目录树的列,用大括号括起来
tb.ReceiveCols = "大类|二类|三类" \'指定数据接收列
tb.PathSeparator = "|" \'指定路径分割符号

tb.Filter = "关联列 = \'"  & Tables("地接").Current("关联列") & "\'"        \'你可以设置条件的啊，关联列的名称等于父表关联列即可
Tables("订单").Cols("大类").DropTree = tb.Build()
--  作者：ajim
--  发布时间：2011/12/8 17:29:00
--  

谢谢了 狐狸爸爸
--  作者：ajim
--  发布时间：2011/12/9 14:28:00
--  
感谢您的帮助。有你大家更精彩