Foxtable(狐表)用户栏目专家坐堂 → 做“目录树形式的授权”出现 这样的错误


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

主题:做“目录树形式的授权”出现 这样的错误

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


加好友 发短信
等级:二尾狐 帖子:529 积分:3605 威望:0 精华:0 注册:2011/10/11 17:20:00
做“目录树形式的授权”出现 这样的错误  发帖心情 Post By:2012/6/19 9:18:00 [只看该作者]

做“目录树形式的授权”出现 这样的错误afterload事件代码如下:

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim cmd As New SQLCommand
cmd.C
trv1.BuildTree("授权","分组|权限")
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then
        If trv2.Nodes.Contains(u.Group) = False Then
            trv2.Nodes.Add(u.Group)
        End If
        trv2.Nodes(u.Group).Nodes.Add(u.Name)
    End If
Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()

 


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

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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/19 11:27:00 [只看该作者]

红色的去掉看看:

 

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim cmd As New SQLCommand
cmd.C
trv1.BuildTree("授权","分组|权限")
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then
        If trv2.Nodes.Contains(u.Group) = False Then
            trv2.Nodes.Add(u.Group)
        End If
        trv2.Nodes(u.Group).Nodes.Add(u.Name)
    End If
Next
'Trv1.Nodes(0).Expand()
trv2.ExpandAll()

[此贴子已经被作者于2012-6-19 11:27:06编辑过]

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/6/19 11:43:00 [只看该作者]

老大,这个我帮他搞定了,表里面连个数据都没,就要显示了.所以出问题了.

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


加好友 发短信
等级:管理员 帖子:47449 积分:251065 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/19 11:45:00 [只看该作者]

呵呵,收到

 回到顶部