专家坐堂-[求助]怎么在项目事件AfterOpenProject里加入两个目录树代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么在项目事件AfterOpenProject里加入两个目录树代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111492)

--  作者：qwe790715
--  发布时间：2017/12/22 20:13:00
--  [求助]怎么在项目事件AfterOpenProject里加入两个目录树代码
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("扣房名单") \'指定目录树表
tb.TreeCols = "代码|房主_姓名|电话" \'指定用于生成目录树的列
tb.ReceiveCols = "代码|房主_姓名|电话" \'指定数据接收列
Tables("房源表").Cols("房主_姓名").DropTree = tb.Build()

Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("小区年代学区") \'指定目录树表
tb.TreeCols = "代码|小区名称|建筑年代" \'指定用于生成目录树的列
tb.ReceiveCols = "代码|小区名称|建筑年代" \'指定数据接收列
Tables("房源表").Cols("小区名称").DropTree = tb.Build()

怎么样这两个目录树同时运行，谢谢

--  作者：有点蓝
--  发布时间：2017/12/22 20:15:00
--
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("扣房名单") \'指定目录树表
tb.TreeCols = "代码|房主_姓名|电话" \'指定用于生成目录树的列
tb.ReceiveCols = "代码|房主_姓名|电话" \'指定数据接收列
Tables("房源表").Cols("房主_姓名").DropTree = tb.Build()

tb = New DropTreeBuilder
tb.SourceTable = DataTables("小区年代学区") \'指定目录树表
tb.TreeCols = "代码|小区名称|建筑年代" \'指定用于生成目录树的列
tb.ReceiveCols = "代码|小区名称|建筑年代" \'指定数据接收列
Tables("房源表").Cols("小区名称").DropTree = tb.Build()

--  作者：qwe790715
--  发布时间：2017/12/22 20:17:00
--
谢谢