主题：[求助]opento的时候，界面闪烁

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

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

延时

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

测试了一下，没找到办法。你只能用4楼的方式处理了。

不然你就把窗口A弄成主窗口，里面放两个table控件。

窗口B只需要做一个，你点击导航的时候，动态绑定成不同的表，不就好了？

如果确实要用你自己的方法，为什么要弄成停靠？不能弄成共有，然后隐藏起来的形式？