在项目的CurrentTableChanged事件写以下代码，想生成两列的下拉目录树，总会显示出错，请老师指教

For Each t As Table In Tables

    If t.Name Like "*变更信息表*" Then

        Dim tb As New DropTreeBuilder

        tb.SourceTable = DataTables("项目信息表") \'指定目录树表

        tb.TreeCols = "项目名称|设计单位|监理合同段|施工合同段" \'指定用于生成目录树的列

        tb.SourceCols = "项目名称|设计单位|监理单位|承包单位|监理合同段|施工合同段|变更编号|业主机构|监理机构|承包人机构|项目全称" \'指定数据来源列

        tb.ReceiveCols = "项目名称|设计单位|监理单位|承包单位|监理合同段|施工合同段|变更编号|业主机构|监理机构|承包人机构|项目全称" \'指定数据接收列

        t.Cols("项目名称").DropTree = tb.Build()            

    End If

Next

For Each o As Table In Tables

    If o.Name Like "*变更信息表*" Then

        Dim oc As New DropTreeBuilder

        oc.SourceTable = DataTables("变更类别") \'指定目录树表

        oc.TreeCols = "章节|工程名称|变更类别" \'指定用于生成目录树的列

        oc.SourceCols = "章节|工程名称|变更类别" \'指定数据来源列

        oc.ReceiveCols = "章节|工程名称|变更类别" \'指定数据接收列

        o.Cols("工程名称").DropTree = oc.Build()

    End If

Next

1、报什么错？

2、为什么要循环每一个表？

3、上传具体实例测试。