用这个遍历,不用担心重复: http://www.foxtable.com/help/topics/2302.htm
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")For Each nd As WinForm.TreeNode In trv.AllNodes if nd.fullpath = "PD01\CS02\EP02" trv.SelectedNode = nd exit for end ifNext