老师，我把这个示例做到平台里试试。要在登录系统打开平台主界面时自动打开指定窗体用什么代码？
Private Sub Form_Load()
Dim intDefaultMenuID As Integer
Dim intMenuSortID As Integer
Application.Echo False
If IsLoaded("usysfrmLogin") Then '-----------系统代码,请勿修改-----------
DoCmd.RunCommand acCmdAppMaximize ' -----系统代码,请勿修改-----------
g_usysfrmMainMenu_Load ' -----------系统代码,请勿修改-----------
g_usysfrmMain_Form_Load ' -----------系统代码,请勿修改-----------
g_Form_主界面_Load
Me.labGroupID.Caption = Nz(DLookup("userGroup", "sys_tblUser", "userNumber='" & Forms!usysfrmLogin!txtUserName & "'"), 1)
intDefaultMenuID = DLookup("DefaultMenuID", "sys_tblGroup", "GroupID=" & Me.labGroupID.Caption)
intMenuSortID = DLookup("MenuSortID", "sys_tblMenu", "MenuID=" & intDefaultMenuID)
Select Case intMenuSortID
Case 1
上面红色这样为何不行
