- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 目录树下拉表内容排序问题请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120230)
-- 发布时间：2018/6/10 15:50:00
-- [求助] 目录树下拉表内容排序问题请教
初开始学习，问题请教。
【职工基础信息】表--{系统分类}列的目录树下拉表引用【部门岗位设置】表。
问题是：【职工基础信息】表--{系统分类}列的目录树下拉表的内容排序与【部门岗位设置】表的内容排序不一样。
比如：【部门岗位设置】表的部门排序顺序是：“领导&高管>>>董事会秘书处>>>行政管理部......”；岗位或职务排序顺序是：“董事长.党委书记>>>党委书记>>>总经理......”。但是在目录树下拉表的排序顺序分别变为了：“安监部>>>财务部>>>党群部......”和“党群部长>>>党委副书记>>>党委书记......”。
想要达到的目的：【职工基础信息】表--{系统分类}列的目录树下拉表的内容排序完全按照【部门岗位设置】表的原样进行，不要用默认的汉语拼音首字母排序。
如何才能做到，请老师们赐教。谢谢。
详细见附件。再次谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树下拉表内容排序问题请教.table |
-- 发布时间：2018/6/10 22:06:00
--
AfterOpenProject事件，写代码
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("部门岗位设置") \'指定目录树表
tb.TreeCols = "系统分类|部门|工种或职务" \'指定用于生成目录树的列
tb.SourceCols = "系统编码|系统分类|部门编码|部门|工职编码|工种或职务" \'指定数据来源列
tb.ReceiveCols = "系统编码|系统分类|部门编码|部门|岗职编码|岗位或职务" \'指定数据接收列
tb.TreeSort = "系统编码,部门编码,工职编码"
Tables("职工基础信息").Cols("系统分类").DropTree = tb.Build()
-- 发布时间：2018/6/11 9:33:00
--
谢谢@有点甜@版主！
按您给的代码，问题已完美解决。谢谢！以后有问题还会向您请教的。