Foxtable(狐表)用户栏目专家坐堂 → [求助]不知是操作系统的问题还是狐表的BUG?(已解决)


  共有5877人关注过本帖树形打印复制链接

主题:[求助]不知是操作系统的问题还是狐表的BUG?(已解决)

帅哥哟,离线,有人找我吗?
yyzlxc
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2014/4/16 11:15:00 [只看该作者]

 回甜老师,是的,UserGroup 是权限。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/16 11:18:00 [只看该作者]

以下是引用yyzlxc在2014-4-16 11:15:00的发言:
 回甜老师,是的,UserGroup 是权限。

 

你的意思是,原本窗口是在打开状态,然后你切换用户,希望这个窗口刷新数据?

 

如果要这样,要么你重新打开窗口,要么重新执行加载数据的代码


 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2014/4/16 11:19:00 [只看该作者]

切换用户时,对菜单进行了初始化,如何对窗口进行初始化,或者如何触发窗口的AfterLoad事件,请各位老师指教,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/16 11:22:00 [只看该作者]

以下是引用yyzlxc在2014-4-16 11:19:00的发言:
切换用户时,对菜单进行了初始化,如何对窗口进行初始化,或者如何触发窗口的AfterLoad事件,请各位老师指教,谢谢!

 

你说的对窗口进行初始化是什么意思?afterload事件只能在窗口打开的时候才能触发,特殊的调用的。


 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2014/4/16 11:28:00 [只看该作者]

重新加载

 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12117 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2014/4/16 11:28:00 [只看该作者]

说一个捣乱的方法:

 

你在每个窗口里加一个 TextBox 控件,设为不可视,统一命名:如  权限控制

 

在他的值变化事件中写入权限代码

 

窗体初始时赋值 1

 

在用户切换事件里  遍历窗口,如果窗口已打开,窗口 的 TextBox (权限控制)的值 追加 1

 

这样,你哪怕是自动打开,都没关系了。

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2014/4/16 11:42:00 [只看该作者]

找到解决的方法,在项目属性的CurrentTableChanged事件中加入如下代码,从其他表进入工具清单表时,就可以对工具录入窗口加载一次,实现所需的效果。

If CurrentTable.DataTable.Name = "工具清单" Then
    Forms("工具录入").Show()
End If
If CurrentTable.DataTable.Name <> "工具清单" Then
    Forms("工具录入").Close() 
End If

再次感谢各位老师的指教!!

 回到顶部
总数 17 上一页 1 2