- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何通过表中数据展开目录树 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95279)
-- 发布时间：2017/1/15 11:20:00
-- [求助]如何通过表中数据展开目录树
如截图，目录树一级节点由表中的“收治科室”构成，二级节点由“疾病种类”构成。点击目录树完成相应筛选（正向）。刷新目录树后，如果通过当前行自动展开目录树呢？（反向）
此主题相关图片如下：18141229629179.png
-- 发布时间：2017/1/15 11:21:00
--
If Tables("基本信息_table1").current IsNot Nothing Then
t = Tables("基本信息_table1").current("收治科室")
t1= Tables("基本信息_table1").current("疾病种类")
If t IsNot Nothing Then
If t1 Is Nothing Then
t2=t
Else
t2 = t & "\\" & t1
End If
End If
就是让目录树的节点的名称是t2，展开。
-- 发布时间：2017/1/15 12:19:00
--
思路有问题吧？点击刷新目录树的时候，记录当前选中的节点(fullname属性)，重新生成后，循环每一个节点，比较fullname属性，然后展开。
-- 发布时间：2017/1/15 14:05:00
--
这样考虑是由于还有一种情况，就是没有点击目录树，直接在表中添加了数据。
-- 发布时间：2017/1/15 14:11:00
--
那就直接写
trv.Nodes(t).Expand
trv.Nodes(t).Nodes(t1).Expand
[此贴子已经被作者于2017/1/15 14:10:53编辑过]
-- 发布时间：2017/1/15 16:20:00
--
试试，谢谢！