以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求~功能区与表绑定代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13683)

--  作者:lime7523
--  发布时间:2011/10/23 3:55:00
--  求~功能区与表绑定代码


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

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

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

谢谢!


--  作者:lime7523
--  发布时间: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
--  发布时间:2011/10/23 6:47:00
--  

不错