Foxtable(狐表)用户栏目专家坐堂 → 多层级目录树一次性取值(复选框,勾选),父级值不取,如何操作


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

主题:多层级目录树一次性取值(复选框,勾选),父级值不取,如何操作

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


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
多层级目录树一次性取值(复选框,勾选),父级值不取,如何操作  发帖心情 Post By:2011/6/28 9:40:00 [显示全部帖子]

比如:多层级目录树一次性取值(针对有复选框,勾选的值),

         子节点值在第10层,父级节点不取,一次性将最后一层的有勾选的子节点的值进行提取赋值。

第二:针对子节点的值,如何展开父节点。(这个子节点如果在第8层,之前的父节点没有展开)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2011-6-29 10:16:37编辑过]

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


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
  发帖心情 Post By:2011/6/28 10:38:00 [显示全部帖子]

领导,做不出来啊

目前已经做到的是:复选框,一次性取值

可是,针对当前节点是在第10层(比如),我只取当前的节点值,之前的父节点,即使勾选了都不要取值,这一块,怎么弄。

 

还有节点展开:如果当前取值是在第10层。我已经把第8层的节点展开了,第10层如果有值,可以通过ParentNode, 打开对应的第9层。但是如果1-9层的节点都没有展开,如何针对第10层的节点值,展开对应的1-9层


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


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
  发帖心情 Post By:2011/6/28 12:05:00 [显示全部帖子]

见图:取值只要目录树最底层的c对应的值,父层节点的值取的没有意义


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看
获得c的值后,能够从根级展开到对应的C值的层级
图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
  发帖心情 Post By:2011/6/28 14:30:00 [显示全部帖子]

第二问题:如何自动展开c值对应父的节点

 


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
  发帖心情 Post By:2011/6/28 15:04:00 [显示全部帖子]

 
[此贴子已经被作者于2011-6-28 15:05:01编辑过]

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


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
  发帖心情 Post By:2011/6/28 15:05:00 [显示全部帖子]

以下是引用hhbb在2011-6-28 14:43:00的发言:
trv.AllNodes(n).ParentNode.Expand

我还是没有理解解决


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


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
  发帖心情 Post By:2011/6/28 16:43:00 [显示全部帖子]

谢谢

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


加好友 发短信
等级:三尾狐 帖子:734 积分:5645 威望:0 精华:0 注册:2008/9/6 11:22:00
  发帖心情 Post By:2011/7/1 1:08:00 [显示全部帖子]

遇到新问题,只取了第三层的一个值 第一、二层怎么也打开了

红色处,请帮助修改一下,谢谢

Dim CtStr As String = CurrentTable.Current("借方必有")

Dim CtStrsS() As String = ctstr.Split(",")

.............

    '节点展开
    Dim nd2 As WinForm.TreeNode
    Dim n1,i,n As Integer
    For n = 0 To trv.AllNodes.Count-1
        If trv.AllNodes(n).Checked  = True  Then
            n1 = n
            For i = n1 To 0 Step -1
                nd2 = trv.AllNodes(i).ParentNode
                If nd2 IsNot Nothing Then
                    nd2.Expand()
                Else
                    Exit For
                End If
            Next
        End If
    Next
Next


图片点击可在新窗口打开查看此主题相关图片如下:e.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-7-1 9:14:00编辑过]

 回到顶部