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


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

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

帅哥哟,离线,有人找我吗?
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 [只看该作者]

无头案?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/22 15:00:00 [只看该作者]



请上个例子看看吧.
[此贴子已经被作者于2014-4-22 15:00:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
737182811
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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

谢bin版,问题找出来了。

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/22 15:12:00 [只看该作者]

这样判断一下看看

if u.Group isnot nothing then

或者 if u.Group <> ="" then

 回到顶部