专家坐堂-[求助] 消除表间切换的过程Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 消除表间切换的过程  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52577)

--  作者：wumingrong1
--  发布时间：2014/6/18 15:54:00
--  [求助] 消除表间切换的过程

我在任务栏的TopicLinkClick事件中写有以下命令：

Select Case e.Link.Name

Case "网维值班"

MainTable = Tables("网维中心值班表") \'打开"***"表
Forms("网维中心值班表主窗口").Open() \'打开"***"窗口
Forms("日常工作任务窗口").Open() \'打开"***"窗口

Case "工作日志"

MainTable = Tables("工作日志表") \'打开"***"表
Forms("日常工作任务窗口").Open() \'打开"***"窗口
Forms("工作日志表主窗口").Open() \'打开"***"窗口

End Select
\'MessageBox.Show(e.Page.Name & "|" & e.Link.Name)

当我在“网维值班”和“工作日志”间进行切换时；能够很明显的割接到表格和窗口的切换过程。请问该怎样才能消除这种很明显的切换感觉？

其中“日常工作任务窗口”为共有窗口；“工作日志表主窗口”和“网维中心值班表主窗口”为主窗口

--  作者：有点甜
--  发布时间：2014/6/18 15:59:00
--

试试这样

lockbasemainform
Select Case e.Link.Name
    Case "网维值班"


        MainTable = Tables("网维中心值班表") \'打开"***"表
        Forms("网维中心值班表主窗口").Open() \'打开"***"窗口
        Forms("日常工作任务窗口").Open() \'打开"***"窗口


    Case "工作日志"

        MainTable = Tables("工作日志表") \'打开"***"表
        Forms("日常工作任务窗口").Open() \'打开"***"窗口
        Forms("工作日志表主窗口").Open() \'打开"***"窗口

End Select
unlockbasemainform

--  作者：wumingrong1
--  发布时间：2014/6/18 21:55:00
--
感觉好点、但是还是不理想。而且点回第一个的时候还是很明显

--  作者：有点甜
--  发布时间：2014/6/18 21:56:00
--
把例子弄上来看有没有变通方法