主题：[求助]如何目录树复选框取值？

Dim tv As WinForm.TreeView
tv = Forms("窗口1").Controls("TreeView1")
Dim sz As String
Dim nd As WinForm.TreeNode
For i As Integer = 0 To tv.Nodes.Count -1
For ii As Integer = 0 To tv.Nodes.Count -1
    If tv.Nodes(i).nodes(ii).Checked = True   'AndAlso tv.Node.Level = 1
        sz = tv.Nodes(i).nodes(ii).FullPath.Split("\")(1).trim("|").split(":")(1)
    End If
Next
Next
output.show(sz)

这才是好大夫，西医都这样，嘿嘿。

把 If e.node.Level =1 Then 去掉就可以通用了吧。 这是为了效率而使用的。