主题：多层级目录树一次性取值（复选框，勾选），父级值不取，如何操作

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked = True AndAlso nd.Nodes.Count = 0 Then
        trv.AllNodes(nd.parentnode.level).ParentNode.Expand
        Return "最末级节点名称:" & nd.name
    Else
        nd.Checked = False       
    End If
Next