以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【已解决】求助：目录树如果没有选择任意一节点，提示报错这代码怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133936)
--  作者：YUNSEL
--  发布时间：2019/4/23 18:53:00
--  【已解决】求助：目录树如果没有选择任意一节点，提示报错这代码怎么写？
我想实现这个功能，如果没有选择目录树任意节点，弹出消息，提示用户要求选择目录树节点。这段代码要怎么写？
[此贴子已经被作者于2019/4/23 20:26:57编辑过]
--  作者：YUNSEL
--  发布时间：2019/4/23 19:55:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
If nd.IsSelected = False Then
    MessageBox.Show("请选择节点")
End If

我这样写，执行时，提示未对象引用设置到对象的实例弹窗错误。
--  作者：YUNSEL
--  发布时间：2019/4/23 20:27:00
--  
要这样写才行，自己弄出来了。

Dim trv As WinForm.TreeView = e.form.controls("TreeView1")
Dim count = 0
For Each nd As WinForm.TreeNode In trv.Nodes
    If nd.IsSelected = True Then
        count += 1
    End If
Next
If count = 0 Then
    MessageBox.Show("没有选择节点“)
End If
--  作者：有点蓝
--  发布时间：2019/4/23 20:59:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
If nd is nothing Then
    MessageBox.Show("请选择节点")
End If