主题：窗口加载运行慢

1、这段代码删除看看

 

With DataTables("项目节点明细")
    .LoadFilter = "[节点状态] = '进行中' And [节点负责人] = '" & _UserName & "'"
    .LoadTop = 100
    .LoadPage = 0
    .Load()
End With

 

2、你sizeChanged事件代码删除看看

先测试，是哪一段代码导致的问题，然后再想办法优化。

你的数据库那里，添加索引

 

https://support.office.com/zh-cn/article/%E5%88%9B%E5%BB%BA%E5%92%8C%E4%BD%BF%E7%94%A8%E7%B4%A2%E5%BC%95%E4%BB%A5%E6%8F%90%E9%AB%98%E6%80%A7%E8%83%BD-0a8e2aa6-735c-4c3a-9dda-38c6c4f1a0ce

 

然后，改成这样的代码

 

SystemReady = False
With DataTables("工作记录评价表")
    .LoadFilter = "[评价状态] = '待审核' And [相关人员] = '" & _UserName & "'"
    .LoadTop = 100
    .LoadPage = 0
    .Load()
End With
SystemReady = True

 

执行6楼的代码，有多慢？需要几秒？

2秒是正常情况，数据多以后，也是2秒左右的。