项目打开速度慢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

首先，AfterOpenProject事件没有执行完毕，是看不到任何窗口的（这个事件打开的模式窗口除非）。

其次升级代码重复了，去掉第一句【Syscmd.Project.Update(False,True)'自动升级】

如果要先显示窗口，建一个计划管理，间隔200毫秒，把处理和显示的代码放到计划管理里执行，然后加上doevent（http://www.foxtable.com/webhelp/topics/1476.htm）

计划1

Forms("主窗口").Controls("Label2").text = "正在重置[商品车库存]的数据"

Application.DoEvents

DataTables("商品车库存基础表").DataCols("生产日期").RaiseDataColChanged()

DataTables("商品车库存基础表").DataCols("入库日期").RaiseDataColChanged()

DataTables("商品车库存基础表").DataCols("资源匹配日期").RaiseDataColChanged()

DataTables("商品车库存基础表").DataCols("资源匹配后到车日期").RaiseDataColChanged()

DataTables("商品车库存基础表").DataCols("关联索引列").RaiseDataColChanged()

Forms("主窗口").Controls("Label2").text = "正在重置[商品车销售]的数据"

Application.DoEvents

DataTables("商品车销售基础表").DataCols("关联索引列").RaiseDataColChanged()

DataTables("商品车销售基础表").DataCols("关联索引二列").RaiseDataColChanged()

DataTables("商品车销售基础表").DataCols("在保客户实际保险止期").RaiseDataColChanged() '重新计算天数

DataTables("商品车销售基础表").DataCols("脱保客户预计保险止期").RaiseDataColChanged() '重新计算天数

Forms("主窗口").Controls("Label2").text = "正在重置[保险明细]的数据"

Application.DoEvents

DataTables("保险明细表").DataCols("关联索引二列").RaiseDataColChanged()

Forms("主窗口").Controls("Label2").text = "正在保存数据"

Application.DoEvents

DataTables("商品车库存基础表").save()

DataTables("商品车销售基础表").save()

Forms("主窗口").Controls("Label2").text = ""

Application.DoEvents

AfterOpenProject事件

If Syscmd.Project.Update(False,False) = False Then '如果没有升级

Forms("主窗口").Show()

endif

主题：项目打开速度慢