以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列窗口不显示的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137659)
--  作者：诚学思行
--  发布时间：2019/7/12 8:58:00
--  列窗口不显示的问题

For Each c As Col In Tables("表A").Cols
    c.CloseWindow()    \'Table中的列窗口默认关闭
Next

如果一个表的列数比较多, 列窗口比较多.
希望默认隐藏(关闭)列窗口
执行上述代码可以达到效果.

但是: 屏幕上列窗口首先会显示出来(堆叠),然后一个一个关闭(消失)
这个过程非常难看,有什么办法让用户感受不到吗?(比如我切换到该表时,执行什么样的代码可以避免发生这么难堪的界面……)
最好是:直接不显示列窗口.
--  作者：有点酸
--  发布时间：2019/7/12 9:08:00
--  
1、列窗口可以不自动打开的：
http://www.foxtable.com/webhelp/topics/0075.htm
http://www.foxtable.com/webhelp/topics/0078.htm

2、关于闪烁，可以参考这一节：
http://www.foxtable.com/webhelp/topics/2914.htm

通过表的StopRedraw和ResumeRedraw方法，可以在执行某些操作之前停止绘制表，操作完成之后恢复绘制表，以避免屏幕闪烁。
但是某些特殊情况，这一招可能会失效，例如上面的代码中连续使用了RemoveFor和AppendLoad，此时单单依靠表的StopRedraw和ResumeRedraw，屏幕依然会有明显的闪烁。

Foxtable提供了一对方法，分别为LockBaseMainForm和UnLockBaseMainForm方法，前者用于停止绘制主界面，后者用于恢复绘制主界面。


如果使用常规的方法无法解决屏幕闪烁问题，可以如本节的示例代码一样，将相关的代码放在这一对方法之间即可。

如果表位于窗口之中，需要将代码放在Form的StopRedraw和ReseumeRedraw方法之间，才能避免闪烁：

Forms("窗口名").StopRedraw() \'停止绘制窗口
DataTables("订单").StopRedraw()
DataTables("订单").RemoveFor("日期 = #" & Date.Today & "#")
DataTables("订单").AppendLoad("日期 = #" & Date.Today & "#")
DataTables("订单").ResumeRedraw()
Forms("窗口名").ReseumeRedraw() \'停止绘制窗口

并非所有的操作都需要如此处理，多数时候只需使用表的StopRedraw和ResumeRedraw方法，就可以避免闪烁的发生，到目前为止，我也只发现连续使用RemoveFor和AppendLoad的时候，才需要做这样的特殊处理。