以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  登录窗口进去先不是设计的首页,而是闪一下表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128957)

--  作者:susu312
--  发布时间:2018/12/18 23:39:00
--  登录窗口进去先不是设计的首页,而是闪一下表

basemainform.text ="离退休干部信息管理系统"
Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If

Forms("首页").open()
MainTable = Tables("person")
If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = False
End If

 

 

这个是代码,应该登录进去就是首页,但是,这个系统不是,是闪一下加载的表,然后再换成首页


--  作者:有点甜
--  发布时间:2018/12/19 9:41:00
--  

你要显示的是这个表?

 

MainTable = Tables("person")

如果不是,请删除这句代码。


--  作者:susu312
--  发布时间:2018/12/19 10:38:00
--  
以下是引用有点甜在2018/12/19 9:41:00的发言:

你要显示的是这个表?

 

MainTable = Tables("person")

如果不是,请删除这句代码。


图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看

 

我希望登录进去显示的是首页窗口,我把那句代码删除之后 ,登录进去如上图所示,都不是首页窗口了?

 

 


 


--  作者:有点甜
--  发布时间:2018/12/19 11:26:00
--  

1、你把【首页】的表格移动到第一个位置,保存项目;

 

2、Forms("首页").open() 改成 Forms("首页").Show


--  作者:susu312
--  发布时间:2018/12/19 11:38:00
--  
以下是引用有点甜在2018/12/19 11:26:00的发言:

1、你把【首页】的表格移动到第一个位置,保存项目;

 

2、Forms("首页").open() 改成 Forms("首页").Show

好厉害,目前没问题了,谢谢您