以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用户数超500代码出错，请老师帮忙看看！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126072)
--  作者：laipiwen
--  发布时间：2018/10/13 13:03:00
--  用户数超500代码出错，请老师帮忙看看！
如标题，请帮忙看看该怎么处理，用 的是内置用户管理。
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView1")
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

提示 “未将对象引用设置到对象的实例。”
--  作者：有点蓝
--  发布时间：2018/10/13 14:17:00
--  
我测试没有问题，和用户数没有关系。应该是其中有用户的Group是空的。

Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nn As WinForm.TreeNode = trv2.Nodes.Add("未分组")
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then
        If u.Group > "" Then
            If trv2.Nodes.Contains(u.Group) = False Then
                trv2.Nodes.Add(u.Group)
            End If
            trv2.Nodes(u.Group).Nodes.Add(u.Name)
        Else
            nn.Nodes.Add(u.Name)
        End If
    End If
Next
--  作者：laipiwen
--  发布时间：2018/10/13 14:32:00
--  
以下是引用有点蓝在2018/10/13 14:17:00的发言：
我测试没有问题，和用户数没有关系。应该是其中有用户的Group是空的。

Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nn As WinForm.TreeNode = trv2.Nodes.Add("未分组")
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then
        If u.Group > "" Then
            If trv2.Nodes.Contains(u.Group) = False Then
                trv2.Nodes.Add(u.Group)
            End If
            trv2.Nodes(u.Group).Nodes.Add(u.Name)
        Else
            nn.Nodes.Add(u.Name)
        End If
    End If
Next

的确如此 感谢有点蓝老师！