下面这段代码,是想生成一个目录树,按_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