主题：列的下拉目录树问题

在项目的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、上传具体实例测试。