以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 目录树下拉窗口选择，保存到下拉组合框文本  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116006)
--  作者：dxjwlf
--  发布时间：2018/3/18 15:51:00
--  [求助] 目录树下拉窗口选择，保存到下拉组合框文本
求助。
下拉框中的值的格式
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:求助 目录树下接筛选框.table

：   预包装食品销售（含冷藏冷冻食品）；散装食品销售（不含散装熟食，含冷藏冷冻食品）；热食类食品制售；
--  作者：有点甜
--  发布时间：2018/3/18 20:12:00
--  

参考实例

 

http://www.foxtable.com/webhelp/scr/2478.htm

 

 
--  作者：dxjwlf
--  发布时间：2018/3/18 21:38:00
--  [求助] 目录树下拉窗口选择，保存到下拉组合框文本
看过例子了，没有这么简单。大师在看下，我有上传项目。

主要是文本框 中有格式 符号。。不知道 怎么弄
[此贴子已经被作者于2018/3/18 21:42:53编辑过]
--  作者：有点甜
--  发布时间：2018/3/18 22:09:00
--  
Dim trv As WinForm.TreeView = e.Form.controls("TreeView1")
Dim str As String = ""
For Each nd As WinForm.TreeNode In trv.nodes
    If nd.checked Then
        str &= nd.text
        Dim s As String = ""
        For Each cnd As WinForm.TreeNode In nd.Nodes
            If cnd.Checked Then
                s &= cnd.Text & ","
            End If
        Next
        str &= "(" & s.trim(",") & ");"
    End If
Next
e.Form.DropDownBox.Value = str.trim(";")
e.Form.DropDownBox.CloseDropdown
--  作者：dxjwlf
--  发布时间：2018/3/18 22:47:00
--  [求助] 目录树下拉窗口选择，保存到下拉组合框文本
完全正确。。牛。

但我看不懂呀。

str &= nd.text


str &= "(" & s.trim(",") & ");"


一头雾水， str &=  是什么 写法。 WUWUWU
--  作者：有点甜
--  发布时间：2018/3/18 22:49:00
--  

等同于 str = str & "(" & s.trim(",") & ")"