老师你好！下面代码是我放按钮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() '解锁主窗口
加好友 
发短信
Post By：2023/11/17 18:19:00 [显示全部帖子]
