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

我还是没有理解解决

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

遇到新问题，只取了第三层的一个值 第一、二层怎么也打开了

红色处，请帮助修改一下，谢谢

Dim CtStr As String = CurrentTable.Current("借方必有")

Dim CtStrsS() As String = ctstr.Split(",")

.............

    '节点展开
    Dim nd2 As WinForm.TreeNode
    Dim n1,i,n As Integer
    For n = 0 To trv.AllNodes.Count-1
        If trv.AllNodes(n).Checked  = True  Then
            n1 = n
            For i = n1 To 0 Step -1
                nd2 = trv.AllNodes(i).ParentNode
                If nd2 IsNot Nothing Then
                    nd2.Expand()
                Else
                    Exit For
                End If
            Next
        End If
    Next
Next