以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  没有选择的话按下就会报错 怎么排除  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112895)

--  作者:yifan3429
--  发布时间:2018/1/4 20:40:00
--  没有选择的话按下就会报错 怎么排除
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2017.12.18.1
错误所在事件:窗口,团队输入,Button1,Click
详细错误信息:
未将对象引用设置到对象的实例。

如果没有选择的话按下就会报错  怎么排除

Dim s As String 
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        s = s & "|" & nd.Text
    End If
Next
e.Form.DropDownBox.Value = s.trim("|")
e.Form.DropDownBox.CloseDropdown




--  作者:有点甜
--  发布时间:2018/1/4 20:42:00
--  
Dim s As String = ""
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        s = s & "|" & nd.Text
    End If
Next
e.Form.DropDownBox.Value = s.trim("|")
e.Form.DropDownBox.CloseDropdown