以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]单元格下拉列表中目录树根据指定内容列示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136353)
--  作者：bashanren
--  发布时间：2019/6/11 21:59:00
--  [求助]单元格下拉列表中目录树根据指定内容列示
各位老师晚上辛苦！！
在帮助文件“通用下拉目录树”中，假设客户表的省市列是已经给定了的，后面的“通用下拉目录树”被点开后仅显示与“省市”列相对应的内容，其他不用显示，这样就更快捷，不用在目录树中去找“省市”了。如图：
图片点击可在新窗口打开查看此主题相关图片如下：222.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/6/11 22:00:17编辑过]
--  作者：有点蓝
--  发布时间：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
--  发布时间：2019/6/11 23:12:00
--  
非常完美，感谢老师！！！