主题：新人，版本还是试用期，先学习再进下一步版本

可应对动态变化的方法：

1、删除AfterOpenProject和CurrentTableChanged中的代码。

2、在MainTableChanged中添加下列代码：

'切换主表后重建目录树选单

Dim tn As String = MainTable.name

Dim ta As New DropTreeBuilder

Dim t As Table = CurrentTable

Select Case tn

    Case "测试主表"

        ta.SourceTable = DataTables("花名册")

        ta.TreeCols = "公司名|部门|姓名"

        ta.SourceCols = "公司名|部门|姓名"

        ta.ReceiveCols = "分公司|部门|员工姓名"

        ta.TreeWidth = 400 ’应根据分公司、部门、员工姓名三者中各自的最大长度之和调整大小

        ta.TreeSort = "公司名,部门,姓名"

        t.Cols("分公司").DropTree = ta.Build()

End Select