Foxtable(狐表)用户栏目专家坐堂 → 求~功能区与表绑定代码


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

主题:求~功能区与表绑定代码

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


加好友 发短信
等级:幼狐 帖子:88 积分:899 威望:0 精华:0 注册:2011/9/24 9:36:00
求~功能区与表绑定代码  发帖心情 Post By:2011/10/23 3:55:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
2个问题!

第一个,当我点人事部功能区的时候自动对应人事部表单(因为我设计的所有部门员工窗口在人事部表里)

第二个,当我点增加员工的时候自动关闭所有部门员工窗口,跳转到增加员工的界面

谢谢!


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


加好友 发短信
等级:幼狐 帖子:88 积分:899 威望:0 精华:0 注册:2011/9/24 9:36:00
  发帖心情 Post By:2011/10/23 5:51:00 [只看该作者]

我已经会了,和大家分享一下代码

 

功能区和表绑定代码,并且自动打开窗口

forms("人事部汇总界面").Open()
MainTable = Tables("人事资料")

 

 

打开新窗口自动关闭老窗口代码

Syscmd.Project.StopRedraw()
For Each frm As WinForm.Form In Forms
   frm.Close()
Next
Application.DoEvents()
Select Case MainTable.Name
    Case "人事资料"
        Forms("人事部汇总界面").Show()
    Case "人事资料"
        Forms("人事部新增员工表").Show()
End Select
Syscmd.Project.ResumeRedraw()


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


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2011/10/23 6:47:00 [只看该作者]

不错


 回到顶部