Dim trv As WinForm.TreeView = Forms("导航窗口").Controls("TreeView1") Dim flt As String For Each nd As WinForm.TreeNode In e.node.Nodes '清除子节点选中状态 nd.Checked = False Next If e.node.ParentNode IsNot Nothing Then '去掉父节点选中状态 e.node.ParentNode.Checked = False End If