treeview 的查询有关问题

treeview 的查询问题如图 我该如何 对 “张三”这个人员 进行查询呢 输入张三有 张三的部门 都显示出来[解决

treeview 的查询问题
如图
treeview 的查询有关问题 

我该如何 对 “张三”  这个人员 进行查询呢 


输入  张三  

有 张三的部门 都显示出来 
[解决办法]

lnTreeNodes=Thisform.OleTreeView6.nodes.Count
For lnI=1 To lnTreeNodes
If Thisform.OleTreeView6.Nodes(lnI).Text='VFP'
oParentNode=Thisform.OleTreeView6.Nodes(lnI)
Do While Vartype(oParentNode.Parent)='O'
oParentNode=oParentNode.Parent
oParentNode.Expanded=.T.
Enddo
Endif
Endfor