主题：运行速度太慢了,求代码简化和提速方案

各位前辈老师,小弟制作了一个操作系统,但是操作起来的速度太慢了,例如,读取10天的数据速度尚可,超过了,速度就慢得要死.

东西呢?

上传时文件太大没有成功,现在整理后重传了,谢谢

 项目很大，哪个表，哪个窗口，哪个按钮的操作慢？

 

 别人不可能帮你看完整个项目啊。

主表:报关登记表(关联表:报关结算表)

加载的数据越多，加载的速度就越慢，这个是肯定的

 

第一，列太多，能不能分拆成几个小表。

第二，DrawCell事件中，好多单元格都要重绘，能不能减少。

第三，一次加载很多行，有没有必要。

第四，多线程加载。加载过程中，不影响干其他事，就不觉得慢了。

 看了一下，如果是加载慢的话，有几种原因。

 

1、其它事件影响了，你要改一下代码

 

Dim StartDate As Date
Dim EndDate As Date
With RibbonTabs("业务管理")("报关登记查询")("时间筛选")
    StartDate = .Items("StartDate").Value
End With
With RibbonTabs("业务管理")("报关登记查询")
    EndDate = .Items("EndDate").Value
End With
SystemReady = False
DataTables("报关登记表").StopRedraw
DataTables("报关结算表").StopRedraw

DataTables("报关登记表").LoadFilter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"
DataTables("报关登记表").Load()

DataTables("报关结算表").LoadFilter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"
DataTables("报关结算表").Load()

DataTables("报关结算表").ResumeRedraw
DataTables("报关登记表").ResumeRedraw
SystemReady = True

 

2、表达式列过多，如果加载量过多的话，重新计算也是很耗时的。建议尽量不要用表达式列了，你看看是否可以用数据列代替表达式列的功能。

 再有一个，你的数据较多，你要在access里面给日期列添加一个索引，这样利于查询和比较，不然会很慢的。

谢谢各位老师给予的指导: