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

老师，我首页对应的不是上面的窗口，但是每次打开是这个窗口

我只有点一下单位管理，然后再点到首页，首页对应的窗口才正确了，

Select Case e.Sender.Name
    Case "首页"
        Forms("首页").open()
        MainTable = Tables("person")
    Case "单位管理"
        Forms("单位管理").open()
        MainTable = Tables("organList")
   Case "部门管理"
        Forms("部门管理").open()
        MainTable = Tables("depList")
    Case "人员管理"
        Forms("人员管理窗口").open()
        MainTable = Tables("person")
    Case "查询统计"
        Forms("统计查询主窗口").open()
        MainTable = Tables("person")
    Case "历史库管理"
            MainTable = Tables("history")
            Forms("历史库管理窗口").open()
    Case "用户管理"
        Forms("用户管理主窗口").open()
        MainTable = Tables("user")

 End Select

代码是这样的 ，本来首页应该是红色代码的窗口，但是有时候打开是绿色代码窗口？

代码没问题。是不是你打开项目的时候，默然就是打开了绿色的窗口导致的？

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

而且操作员进来应该看不到用户管理的，现在也能看到

这是登录窗口，确定后的代码：

If e.Form.Controls("userPassword").Value = dr("userPassword") Then
    _UserName = UserName
    _UserOrgan = dr("OrganName")
    _UserRole = dr("userRole")
  
    \'\'权限控制
    If _UserRole ="超级管理员" Then
    DataTables("person").LoadFilter = ""
    DataTables("organList").LoadFilter = ""
    DataTables("history").LoadFilter = ""
    DataTables("user").LoadFilter = ""
    For Each t As Table In Tables
        t.AllowEdit = False
    Next

    RibbonTabs("单位管理").Groups("").Visible=False
    RibbonTabs("部门管理").Groups("").Visible=False
    RibbonTabs("人员管理").Groups("").Visible=False
    RibbonTabs("历史库管理").Groups("").Visible=False
    RibbonTabs("用户管理").visible = True
    RibbonTabs("用户管理").Groups("").Visible=False

    ElseIf _UserRole ="管理员" Then
 
    Dim dt1 As DataTable = DataTables("organList")
    Dim Filter As String
    For Each dr1 As DataRow In dt1.Select("[organName] = \'" & _UserOrgan & "\'")
       If Filter > "" Then
        Filter = Filter & " or "
       End If
    Filter=Filter & "organName = \'" & dr1("organName") & "\'"
    Dim f2 As String = Functions.Execute("AddFilter",dr1("organName"),dt1)
    If f2 > "" Then
        If Filter > "" Then
            Filter = Filter & " or "
        End If
        Filter=Filter & f2
    End If
   Next
   DataTables("organList").LoadFilter = Filter
   DataTables("person").LoadFilter = Filter
   DataTables("history").LoadFilter = Filter
   DataTables("user").LoadFilter =  Filter

   For Each t As Table In Tables
        t.AllowEdit = False
   Next

    RibbonTabs("单位管理").Groups("").Visible=True
    RibbonTabs("部门管理").Groups("").Visible=True
    RibbonTabs("人员管理").Groups("").Visible=False
    RibbonTabs("历史库管理").Groups("").Visible=False
    RibbonTabs("用户管理").visible = True
    RibbonTabs("用户管理").Groups("").Visible=True

 
    ElseIf _UserRole ="操作员" Then
    DataTables("person").LoadFilter = "organName = \'" & _UserOrgan & "\'"
    DataTables("organList").LoadFilter = "organName = \'" & _UserOrgan & "\'"
    DataTables("history").LoadFilter = "organName= \'" & _UserOrgan & "\'"
    DataTables("user").LoadFilter = "organName = \'" & _UserOrgan & "\'"
    For Each t As Table In Tables
        t.AllowEdit = True
    Next
\'
    RibbonTabs("单位管理").Groups("").Visible=False
    RibbonTabs("部门管理").Groups("").Visible=False
    RibbonTabs("人员管理").Groups("").Visible=True
    RibbonTabs("历史库管理").Groups("").Visible=True
    RibbonTabs("用户管理").visible = False

   DataTables("person").Load()
   DataTables("organList").Load()
   DataTables("history").Load()
   DataTables("user").Load()
 
   e.Form.BaseForm.Opacity = 0
   e.Form.Close
   Forms("首页").Open
   basemainform.visible = True
   ConfigBar.Items("标签1").Text=Date.Today & "  " & _UserOrgan & " " & _UserRole & "  " &  _UserName
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

点注销再登录时，实例有数据库，可能看不上

注销代码：

basemainform.visible = False
Forms("用户登录").Open()
RibbonTabs.SelectedTab = RibbonTabs("首页")
Forms("单位管理").Close
Forms("单位管理").Open
Forms("部门管理").Close
Forms("部门管理").Open
Forms("用户管理主窗口").Close
Forms("用户管理主窗口").Open
Forms("人员管理窗口").Close
Forms("人员管理窗口").Open
Forms("历史库管理窗口").Close
Forms("历史库管理窗口").Open

那你修改7楼的代码啊。把首页窗口打开啊。