以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关闭除共有窗口所有窗体  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134964)
--  作者：Sunliangcai
--  发布时间：2019/5/14 9:49:00
--  关闭除共有窗口所有窗体

请老师指点代码错在哪？谢谢！

If LastInputTickCount > 30000 Then
    Forms("用户登录").Open()
    If Forms("用户登录").Opened Then
        Forms("用户登录").Controls("用户名").Text = _UserName
        Forms("用户登录").Controls("用户名").Enabled = False
        Forms("用户登录").Controls("密码").Select
        For Each frm As WinForm.Form In forms
            If frm.Name <> "共有窗口" OrElse frm.Name <> "用户登录" Then
                frm.Close
            End If
        Next
        MainTable = Tables("首页")
        Forms("主窗体").Open()
    End If
End If
--  作者：有点甜
--  发布时间：2019/5/14 9:54:00
--  

If LastInputTickCount > 30000 Then
    For Each frm As WinForm.Form In forms
        If frm.Name <> "共有窗口" OrElse frm.Name <> "用户登录" Then
            frm.Close
        End If
    Next
   
    Forms("用户登录").Open()
   
    MainTable = Tables("首页")
    Forms("主窗体").Open()
End If

 
--  作者：Sunliangcai
--  发布时间：2019/5/14 10:15:00
--  
老师，登录窗口不停闪动
[此贴子已经被作者于2019/5/14 10:19:58编辑过]
--  作者：有点甜
--  发布时间：2019/5/14 10:19:00
--  
If LastInputTickCount > 30000 AndAlso  Forms("用户登录").opened = False Then
    For Each frm As WinForm.Form In forms
        If frm.Name <> "共有窗口" OrElse frm.Name <> "用户登录" Then
            frm.Close
        End If
    Next
   
    Forms("用户登录").Open()
   
    MainTable = Tables("首页")
    Forms("主窗体").Open()
End If
--  作者：Sunliangcai
--  发布时间：2019/5/14 10:42:00
--  
谢谢