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

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()

主题：[求助]怎么在项目事件AfterOpenProject里加入两个目录树代码