- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下拉框的一个报错！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144737)
-- 发布时间：2019/12/28 11:24:00
-- 下拉框的一个报错！
此主题相关图片如下：bug2.png
此主题相关图片如下：bug1.png
是这样的，我设计了一个下拉框，但是如果不选择，直接点击确定，就会出现这样的报错，应该怎么修改代码呢？
-- 发布时间：2019/12/28 11:25:00
--
此主题相关图片如下：3.png
-- 发布时间：2019/12/28 11:31:00
--
按钮代码？
-- 发布时间：2019/12/28 11:58:00
--
确定按钮写了什么代码呀
-- 发布时间：2019/12/28 13:58: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
-- 发布时间：2019/12/28 13:58:00
-- 回复：（y2287958）按钮代码？
就是帮助文件里面的代码，“确定”按钮的代码。不知道为啥会出错
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
-- 发布时间：2019/12/28 14:13:00
--
Dim s As String
改为
Dim s As String = “”
-- 发布时间：2019/12/28 16:50:00
-- 回复：（有点蓝）Dim s As String 改为Dim s As ...
真的哦，改了以后就不报错了
谢谢大佬