Foxtable(狐表)用户栏目专家坐堂 → 在窗口中多选时,如何能目录树分级显示?


  共有4633人关注过本帖树形打印复制链接

主题:在窗口中多选时,如何能目录树分级显示?

帅哥哟,离线,有人找我吗?
jpguo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:155 积分:1556 威望:0 精华:0 注册:2011/4/8 14:38:00
在窗口中多选时,如何能目录树分级显示?  发帖心情 Post By:2013/5/23 18:35:00 [只看该作者]


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

请教:

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

 


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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/5/24 6:09:00 [只看该作者]

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


 
搞不定,再说话。


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:155 积分:1556 威望:0 精华:0 注册:2011/4/8 14:38:00
  发帖心情 Post By:2013/5/24 16:33:00 [只看该作者]

搞定了,谢谢。

 回到顶部