以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]多选目录树选择多个分隔符为逗号，如何修改为顿号呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120188)
--  作者：1021gjx
--  发布时间：2018/6/9 0:12:00
--  [求助]多选目录树选择多个分隔符为逗号，如何修改为顿号呢？
多选目录数如何修改分隔符为顿号
--  作者：有点蓝
--  发布时间：2018/6/9 8:39:00
--  

参考：http://www.foxtable.com/webhelp/scr/1273.htm，注意下面第一行3个点


\'\'\'

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