- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 系统自带的“多选目录树”实例出错，怎么改？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70764)
-- 发布时间：2015/6/28 18:04:00
-- 系统自带的“多选目录树”实例出错，怎么改？
点击下拉窗口后，当取消所有打勾，并点击确定后，出现如图所示错误提示，代码要怎么修改？
此主题相关图片如下：20150628180301.png
这个是确定按钮的代码：
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
[此贴子已经被作者于2015/6/28 18:05:12编辑过]
-- 发布时间：2015/6/28 18:13: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
-- 发布时间：2015/6/28 22:02:00
--
谢谢