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