主题：[求助]怎么在项目事件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()

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