主题：[求助]记录窗口

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
    Dim group As String = u.group
    If group = Nothing Then
        group = "未分组"
    End If
    If trv2.Nodes.Contains(Group) = False Then
        trv2.Nodes.Add(Group)
    End If
   
    trv2.Nodes(Group).Nodes.Add(u.Name)
Next

Trv1.Nodes(0).Expand()
trv2.ExpandAll()

老师，这是论坛上的例子，管理员帐号没有设置分组，应该在哪里设置。

 

 菜单->用户管理

 

此主题相关图片如下：图像 1.png

 直接修改用户分组

 

 

老师，我是要点击按钮显示空行再点击按钮隐藏空行。

static i As Integer = 0
If i = 0 Then
    Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
    For Each r As object In bctr.Rows
        If r(1) Is Nothing OrElse r(1) Is System.DBNull.Value Then r.visible = False
    Next
    i = 1
ElseIf i = 1 Then
    Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
    For Each r As object In bctr.Rows
        r.visible = True
    Next
    i = 0
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生成目录树.rar

此主题相关图片如下：图像 2.png