主题：目录树和数据字典的结合

输入的数据需要对候选项目进行分组，便于快速定位到要输入的项目，目录树的样式。只输入一列的内容，不需要多列。又希望有数据字典的显示列和取值列功能，选取后真正输入的是ID号。

请指教！

 单元格获得焦点的时候，动态生成下拉目录树，编辑完毕离开时，动态上传数据字典

http://www.foxtable.com/help/topics/2127.htm

http://www.foxtable.com/help/topics/2653.htm

没有达到预期效果，请甜老师指正一下代码。

服务明细表 的 服提供商列（服务商ID）

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

甜老师，工作单表 和 服务明细表 是关联表， 这些代码必须是在以 服务明细表 作为主操作表的状态下才能运作。我需要在以 工作单 为主操作表的作态下运作，是不是把代码搬过去 工作单 即可？

 prepareEdit事件代码改成

If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "服务商ID_显示"
        Dim tb As New DropTreeBuilder
        tb.SourceTable = DataTables("服务商表") '指定目录树表
        tb.TreeCols = "性质|名称" '指定用于生成目录树的列
        tb.SourceCols = "性质|名称" '指定数据来源列
        tb.ReceiveCols = "|服务商id_显示"
        e.Table.Cols("服务商ID_显示").DropTree = tb.Build()
    End If
End If