[求助]opento的时候，界面闪烁 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]opento的时候，界面闪烁

共有2430人关注过本帖树形打印复制链接主题：[求助]opento的时候，界面闪烁

chnfo

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

加好友

发短信

等级：九尾狐帖子：2240 积分：18457 威望：0 精华：0 注册：2011/11/26 20:21:00

[求助]opento的时候，界面闪烁 发帖心情

Post By：2018/3/16 15:08:00 [只看该作者]

界面上有两个窗口。A是共用窗口，用来导航。B是业务窗口（它是停靠窗口，假如属于表X，窗口中绑定表Y），用来指引显示主表数据。

在A中选择不同的导航菜单时，

1、 forms("B").opento("要切换到的主表") ；要切换到不同的主表－－－maintable = tables("要切换到的主表");

2、主表显示的数据要根据B窗口中的行过滤。即maintable.filter = “XID＝　‘”　& forms("B").controls("table1").table.current("ID")

问题是：切换导航菜单时，如果要切换到不同的主表，界面会闪烁。

有什么解决方案？

[此贴子已经被作者于2018/3/16 15:09:33编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/16 15:12:00 [只看该作者]

1、先opento，再切换到对应的mainTable；

2、闪烁的问题，做个例子看看，看能否处理。

chnfo

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

加好友

发短信

等级：九尾狐帖子：2240 积分：18457 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2018/3/16 15:56:00 [只看该作者]

几乎没有什么逻辑的切换，都会闪。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:opento.zip

BCD间切换，会闪。

DE间切换不会闪（因为它们的maintable 是一样的）

[此贴子已经被作者于2018/3/16 15:58:01编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/16 16:05:00 [只看该作者]

延时

Select Case e.Link.Name
    Case "B"
        Forms("A").OpenTo("B")
        Dim sdt As Date = Date.Now
        While Date.Now < sdt.AddSeconds(2)
            Application.DoEvents
        End While
        MainTable = Tables("B")
    Case "C"
        Forms("A").OpenTo("C")
        Dim sdt As Date = Date.Now
        While Date.Now < sdt.AddSeconds(2)
            Application.DoEvents
        End While

        MainTable = Tables("C")
    Case "D"
        Forms("A").OpenTo("D")
        Dim sdt As Date = Date.Now
        While Date.Now < sdt.AddSeconds(2)
            Application.DoEvents
        End While
        MainTable = Tables("D")
    Case "E"
        Forms("A").OpenTo("D")
        MainTable = Tables("D")
    Case "F"
        MainTable = Tables("F")
    Case "G"
        MainTable = Tables("G")
End Select