- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树和数据字典的结合 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63044)
-- 发布时间：2015/1/12 21:26:00
-- 目录树和数据字典的结合
输入的数据需要对候选项目进行分组，便于快速定位到要输入的项目，目录树的样式。只输入一列的内容，不需要多列。又希望有数据字典的显示列和取值列功能，选取后真正输入的是ID号。
请指教！
-- 发布时间：2015/1/12 21:30:00
--
单元格获得焦点的时候，动态生成下拉目录树，编辑完毕离开时，动态上传数据字典
http://www.foxtable.com/help/topics/2127.htm
http://www.foxtable.com/help/topics/2653.htm
-- 发布时间：2015/1/13 21:36:00
--
没有达到预期效果，请甜老师指正一下代码。
服务明细表 的 服提供商列（服务商ID）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/1/13 21:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
-- 发布时间：2015/1/14 0:02:00
--
甜老师，工作单表 和 服务明细表 是关联表， 这些代码必须是在以 服务明细表 作为主操作表的状态下才能运作。我需要在以 工作单 为主操作表的作态下运作，是不是把代码搬过去 工作单 即可？
-- 发布时间：2015/1/14 8:13:00
--
完全同理的,你自己动手试试
-- 发布时间：2015/1/14 8:30:00
--
学习了
-- 发布时间：2015/1/14 9:02:00
--
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