主题：目录树窗口问题

 我好奇，你为什么还要再查一次

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\")
    e.Form.DropDownBox.Value = ps(1)
    e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树
End If