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


  共有3037人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
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
图片点击可在新窗口打开查看


 回到顶部