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

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

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

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

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

3、建立索引参考，建立索引以后，通过日期加载数据就不会那么慢了。

http://jingyan.baidu.com/article/a681b0dedf395f3b18434605.html

 个人感觉，就不要大改了。

1、你弄好索引以后，看加载速度是否有提升；

2、注释掉drawcell看速度提升多少；

3、去掉表达式看速度提升多少；

用下面的代码加载数据，如果速度还可以接受的话，就不要大改了。

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

不运行这段代码，就不加载关联表了。

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