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

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()