Foxtable(狐表)用户栏目专家坐堂 → 树加载和对话框中显示加载的不对啊?请大师指导


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

主题:树加载和对话框中显示加载的不对啊?请大师指导

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


加好友 发短信
等级:一尾狐 帖子:498 积分:4611 威望:0 精华:0 注册:2013/4/25 8:02:00
树加载和对话框中显示加载的不对啊?请大师指导  发帖心情 Post By:2015/6/12 1:30:00 [只看该作者]

树加载和对话框中显示加载的不对啊?请大师指导

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:国家开放大学考务系统.rar

 


 


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

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


加好友 发短信
等级:一尾狐 帖子:498 积分:4611 威望:0 精华:0 注册:2013/4/25 8:02:00
  发帖心情 Post By:2015/6/12 1:31:00 [只看该作者]

11号应没有11:00这个值!怎么弄?

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/6/12 9:22:00 [只看该作者]

基本逻辑问题,选了父子并不需要同时选。

 

Afterchecknode的事件代码改为:

 

Dim trv As WinForm.TreeView = e.sender
If e.node.ParentNode IsNot Nothing Then
    e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In e.node.Nodes
    nd.Checked = False
Next
Dim s As String
For Each nd As WinForm.TreeNode In trv.Nodes(0).Nodes
    Dim v As String = ""
    If nd.Checked Then
        v = nd.Text & "/all"
    Else
        For Each cd As WinForm.TreeNode In nd.Nodes
            If cd.Checked Then
                If v = "" Then
                    v = v & nd.Text & "/"
                End If
                v = v & cd.Text & ","
            End If
        Next
    End If
    If v > "" Then
        If s > "" Then
            s = s & vbcrlf
        End If
        s = s & v.Trim(",")
    End If
Next
MessageBox.show(s)

[此贴子已经被作者于2015/6/12 9:24:31编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/6/12 9:41:00 [只看该作者]

 你选择了11日,默认的意思,就是选择了全部的意思啊。

 

 你可以不勾选11日。


 回到顶部