主题：如何判断viewtree没有任何节点被选中了 【ok了】

这个我还不知吗？大哥呀， 没有选中任何节点时，或空目录树的情况下都提示错误啊～  看5楼贴图。

不好意思多试两次又没有任何提示了。。。

但是还是不能做任何事情，因为没有选中任何节点时，或空目录树的情况下 nd = tr.SelectedNode没有意义啊～ 

因为您是加载节点，所以我认为无需判断，不信您试试！

当然有意义。注意代码中的以下2行（红色部分）：

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode                     '这是定义的节点,指的是选中节点
If nd IsNot Nothing Then            '如果选中节点不为空的话,就执行下面的代码
     nd = nd.Nodes.Add("新节点","新节点")
     tr.SelectedNode = nd
     tr.Select
     tr.BeginEdit
End If

必须判断的,否则会出错。我碰到过类似的问题，我之前的处理方式，是先选中TreeView，然后再执行代码。
用老六的判断SelectedNode是否为空，这种方式更好。

自己做了：  不知道对否？
Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("主窗口").Controls("TreeView1")
tr.select()
nd = tr.SelectedNode
If nd Is Nothing Then
    return "< 没有节点！或没有选中节点>"
end if

出错原因好像是给变量赋值（tr.SelectedNode.text）时造成的，代码多了一时记不起来了，再说引用tr.SelectedNode.text 也是很正常的，这时就要判断是否有节点或节点是否被选中了，而不是无需判断···～～～
谢谢大家了。

tr.select()是多余的.

老六的代码是用来判断有没有选中treeview,你的意思好象是判断treeview有无节点?

要判断有无节点也很简单,只要这样:
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
If tr.Nodes.Count = 0 Then
    MessageBox.Show("< 没有节点!>")
end if

好像可以先清空目录树再加载，速度也是飞快的！