Foxtable(狐表)用户栏目专家坐堂 → [求助]狐爸例子照抄也能错?


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

主题:[求助]狐爸例子照抄也能错?

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


加好友 发短信
等级:童狐 帖子:246 积分:1775 威望:0 精华:0 注册:2013/12/22 14:54:00
[求助]狐爸例子照抄也能错?  发帖心情 Post By:2014/4/22 14:40:00 [显示全部帖子]

窗口的AfterLoad事件代码为:

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim
trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
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()



目录树形式的
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140422143718.jpg
图片点击可在新窗口打开查看


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


加好友 发短信
等级:童狐 帖子:246 积分:1775 威望:0 精华:0 注册:2013/12/22 14:54:00
  发帖心情 Post By:2014/4/22 14:51:00 [显示全部帖子]

无头案?

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


加好友 发短信
等级:童狐 帖子:246 积分:1775 威望:0 精华:0 注册:2013/12/22 14:54:00
  发帖心情 Post By:2014/4/22 15:01:00 [显示全部帖子]

调试结果出来了:u.group的第一个值是空值,导致了代码出错。
不知道为毛出来个空值。

 If u.group IsNot Nothing Then
            trv2.Nodes(u.Group).Nodes.Add(u.Name)
        End If
改成这样就ok了。

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


加好友 发短信
等级:童狐 帖子:246 积分:1775 威望:0 精华:0 注册:2013/12/22 14:54:00
  发帖心情 Post By:2014/4/22 15:03:00 [显示全部帖子]

晕死了,原来是有一个用户没有设置分组。
[此贴子已经被作者于2014-4-22 15:05:26编辑过]

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


加好友 发短信
等级:童狐 帖子:246 积分:1775 威望:0 精华:0 注册:2013/12/22 14:54:00
  发帖心情 Post By:2014/4/22 15:04:00 [显示全部帖子]

如此说来,此段代码万一某一个用户没有设置分组,就要报错的。建议狐爸改良啊。

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


加好友 发短信
等级:童狐 帖子:246 积分:1775 威望:0 精华:0 注册:2013/12/22 14:54:00
  发帖心情 Post By:2014/4/22 15:10:00 [显示全部帖子]

谢bin版,问题找出来了。

 回到顶部