主题：[求助]记录窗口

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()

 菜单->用户管理

 直接修改用户分组

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

 你能不能先停下来，把fotable的帮助文档或者视频教程先学一下？都是很基础的问题。

 导出所有代码，搜索，msgbox，然后去对应的事件修改。