主题：[求助] 目录树下拉表内容排序问题请教

AfterOpenProject事件，写代码

Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("部门岗位设置") '指定目录树表
tb.TreeCols = "系统分类|部门|工种或职务" '指定用于生成目录树的列
tb.SourceCols = "系统编码|系统分类|部门编码|部门|工职编码|工种或职务" '指定数据来源列
tb.ReceiveCols = "系统编码|系统分类|部门编码|部门|岗职编码|岗位或职务" '指定数据接收列
tb.TreeSort = "系统编码,部门编码,工职编码"
Tables("职工基础信息").Cols("系统分类").DropTree = tb.Build()