主题：[求助]列表项目排序问题

下面这段代码，是想生成一个目录树，按_Identify排序，但还是不行，请专家看看是哪个地方有问题。谢谢

If MainTable.Name = "工资申报审批登记表" Then

    Dim tb As New DropTreeBuilder

    tb.SourceTable = DataTables("单位基础数据表") '指定目录树表

    tb.TreeCols = "一级单位|二级单位" '指定用于生成目录树的列

    tb.SourceCols = "单位编码|一级单位|二级单位|工资管理方式" '指定数据来源列

    tb.ReceiveCols = "单位编码|一级单位|二级单位|工资管理方式" '指定数据接收列

    Tables("工资申报审批登记表").Cols("单位编码").Combolist = DataTables("单位基础数据表").GetComboListString("一级单位","","_Identify")

    Tables("工资申报审批登记表").Cols("单位编码").DropTree = tb.Build()

End If