循环每一个节点。
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")For Each nd As WinForm.TreeNode In trv.AllNodes If nd.Text.IndexOf("上海") >= 0 Then trv.SelectedNode = nd Exit For End IfNext