主题：目录树的选定节点打勾情况提取ID（疑问）

Dim tv As WinForm.TreeView = Forms("窗口47").Controls("TreeView1") '目录树
Dim nd,nd1,nd2 As WinForm.TreeNode '节点
Dim mf1 As String = "" '初始化变量,此变量用于收集选定打勾节点自身与下级下下级包括ID
If tv.SelectedNode IsNot Nothing Then '判断选定节点不为空
    nd = tv.SelectedNode
    If nd.Checked Then '判断选定节点打勾情况下
        mf1 = mf1 & nd.Name & ","
        For i As Integer = 0 To nd.Nodes.Count -1 '循环下1级打勾情况下
            If nd.Nodes(i).Checked Then
                mf1 = mf1 & nd.Nodes(i).Name & ","
                nd1 = nd.Nodes(i)
                For i1 As Integer = 0 To nd1.Nodes.Count -1 '循环下2级打勾情况下
                    If nd1.Nodes(i1).Checked Then
                        mf1 = mf1 & nd1.Nodes(i1).Name & ","
                        nd2 = nd1.Nodes(i1)
                        For i2 As Integer = 0 To nd2.Nodes.Count -1 '循环下3级打勾情况下
                            If nd2.Nodes(i2).Checked Then
                                mf1 = mf1 & nd2.Nodes(i2).Name & ","
                            End If
                        Next
                    End If
                Next
            End If
        Next
        mf1 = mf1.Trim(" ",",")
        output.show(mf1) '目的显示结果2,31,107,110,111,112,108,109,32,33,104,105,106,34
    End If
End If

请高手们指点!!！改进改进以上代码，谢谢！

当目录树的选定节点打勾情况下，提取打勾节点ID集。

以上代码，只能针对选定节点为3层情况，超过3层就无能为力了。

狐狸爸爸！

试过你的方法，不行，麻烦来个你所说的递归

看过了，我在看看试试