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