[求助]能否整个项目停止绘制 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师你好！

下面代码是我放按钮Click的代码，执行时按下面顺序打开指表，屏幕会闪烁，有没有锁定项目停止绘制的命令。红色代码无效。谢谢老师指教！

LockBaseMainForm() '锁定主窗口

Application.DoEvents

MainTable = Tables("核算项目科目组合表") '切换到应付账款表核算项目科目组合表

Application.DoEvents

MainTable = Tables("应收款对账") '切换到应收款对账

Application.DoEvents

MainTable = Tables("应交税费") '切换到应付账款表应交税费

Application.DoEvents

MainTable = Tables("工程施工") '切换到工程施工

Application.DoEvents

MainTable = Tables("损益数据表") '切换到损益数据表

Application.DoEvents

Dim btn As WinForm.Button = Forms("导航窗口").Controls("应付账款加载")

btn.PerformClick()

MainTable = Tables("应付账款") '切换到应付账款表

Application.DoEvents

MainTable = Tables("工程合同基础数据") '切换到工程合同基础数据

Application.DoEvents

UnLockBaseMainForm() '解锁主窗口

主题：[求助]能否整个项目停止绘制