以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 目录树下拉表内容排序问题请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120230)

--  作者:hanzhang98
--  发布时间: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()


--  作者:hanzhang98
--  发布时间:2018/6/11 9:33:00
--  
谢谢@有点甜@版主!

按您给的代码,问题已完美解决。谢谢!以后有问题还会向您请教的。