以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在窗口中多选时,如何能目录树分级显示?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33754)

--  作者:jpguo
--  发布时间:2013/5/23 18:35:00
--  在窗口中多选时,如何能目录树分级显示?


图片点击可在新窗口打开查看此主题相关图片如下:窗口多选时,目录树显示.png
图片点击可在新窗口打开查看

请教:

在窗口中,多选几个品牌;在选择的时候,下拉多选时,希望能以目录树呈现,选择后,只显示最末级的节点名称。如上图,多选了S1、C1、D1,确定后,在多选框中,就显示“S1、C1、D1”

 


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:在窗口中多选时,能目录树分级显示.table


--  作者:狐狸爸爸
--  发布时间:2013/5/24 6:09:00
--  

可以参考一下:
http://www.foxtable.com/help/topics/2478.htm


 
搞不定,再说话。


--  作者:lsy
--  发布时间:2013/5/24 7:53:00
--  

下拉框选值,反映到目录树:

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If e.Sender.Text.Contains(nd.Name) Then
        nd.Checked = True
    End If
Next
trv.ExpandAll()

 

目录树选值,反映到下拉框 

Dim trv As WinForm.TreeView = e.Sender
Dim txt As String
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 1 Then
        If nd.Checked = True Then
            txt = txt & "," & nd.Name       
        End If
    Else
        nd.Checked = False
    End If
Next
If txt > "" Then
    txt = txt.Trim(",")
End If
e.Form.Controls("CheckedComboBox1").Text = txt
 

[此贴子已经被作者于2013-5-24 10:19:09编辑过]

--  作者:jpguo
--  发布时间:2013/5/24 16:33:00
--  
搞定了,谢谢。