添加远程升级后登录界面失去焦点怎么整？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 添加远程升级后登录界面失去焦点怎么整？

共有2010人关注过本帖树形打印复制链接主题：添加远程升级后登录界面失去焦点怎么整？

lwjiee

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：62 积分：695 威望：0 精华：0 注册：2018/2/23 14:51:00

添加远程升级后登录界面失去焦点怎么整？ 发帖心情

Post By：2018/12/14 18:56:00 [只看该作者]

之前 AfterOpenProject代码是这样的：

以下内容为程序代码:

1 Forms("用户登录").Open()
2 If _UserName = "" Then
3 Syscmd.Project.Exit()
4 Return
5 End If

双击程序打开后，焦点自动在密码输入框里，输入密码确认，即可登录。

可是添加远程升级后，代码改成如下：

以下内容为程序代码:

1 If Syscmd.Project.Update(False,True) = False Then
2 Forms("用户登录").Open()
3 If _UserName = "" Then
4 Syscmd.Project.Exit()
5 Return
6 End If
7 End If

双击程序打开后，整个程序都失去了焦点，需要手动点击密码框，进行输入密码？

有什么办法回到从前吗？
dvubb

此主题相关图片如下：2018-12-14 18_51_33.png

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/14 20:42:00 [只看该作者]

登录窗口afterload

e.Form.BaseForm.TopMost = True

e.form.select

e.form.controls("某个输入框").select

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/12/14 20:42:00 [只看该作者]

或者参考：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=124991&skin=0

下一主题 >> << 上一主题

主题：添加远程升级后登录界面失去焦点怎么整？