专家坐堂-做“目录树形式的授权”出现这样的错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  做“目录树形式的授权”出现这样的错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20763)

--  作者：akzzwj
--  发布时间：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

--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2012/6/19 11:43:00
--
老大,这个我帮他搞定了,表里面连个数据都没,就要显示了.所以出问题了.

--  作者：狐狸爸爸
--  发布时间：2012/6/19 11:45:00
--
呵呵，收到