[求助]单元格下拉列表中目录树根据指定内容列示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]单元格下拉列表中目录树根据指定内容列示

共有2211人关注过本帖树形打印复制链接主题：[求助]单元格下拉列表中目录树根据指定内容列示

bashanren

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00

[求助]单元格下拉列表中目录树根据指定内容列示 发帖心情

Post By：2019/6/11 21:59:00 [只看该作者]

各位老师晚上辛苦！！

在帮助文件“通用下拉目录树”中，假设客户表的省市列是已经给定了的，后面的“通用下拉目录树”被点开后仅显示与“省市”列相对应的内容，其他不用显示，这样就更快捷，不用在目录树中去找“省市”了。如图：
图片点击可在新窗口打开查看

此主题相关图片如下：222.png

[此贴子已经被作者于2019/6/11 22:00:17编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/11 22:14:00 [只看该作者]

这个帮助用法是通过目录树同时录入省市列、县市列...等多个列数据，按照您的说法，那么就无法在县市列选择其它省市了，而且也没有必然再使用目录树，直接设置列表项目就可以了：http://www.foxtable.com/webhelp/topics/1457.htm

当然如果一定要这样做也可以，把下拉窗口afterload代码去掉

DropDownOpening事件添加代码

Dim filter As String

If Tables("客户").Current.IsNull("省市") = False

filter = "省市='" & Tables("客户").Current("省市") & "'"

End If

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("行政区域","省市|县市",filter )

bashanren

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00

Post By：2019/6/11 23:12:00 [只看该作者]

非常完美，感谢老师！！！

主题：[求助]单元格下拉列表中目录树根据指定内容列示