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

老师：

你好！我在用狐表学习过程经常遇到狐表响应很慢，甚至卡死，要强行终止程序才行。请问种情况该如何处理，恳请老师指导。

你是不是写了什么耗时的代码？比如 prepareEdit、drawcell 等事件？

新建一个项目也是如此？

老师：你好！我是有写drawcell 事件，麻烦老师看下是不是代码有问题： If e.Col.Name = "车头行驶证_年审有效期" Then If e.Row.IsNull("车头行驶证_年审有效期") = False Then If e.Row("车头行驶证_年审有效期") < = Date.Today Then e.style = "逾期" Else If e.Row("车头行驶证_年审有效期") < = Date.Today.AddDays(30) Then e.style = "即将到期" End If End If End If End If If e.Col.Name = "车头道路运输证_年审有效期" Then If e.Row.IsNull("车头道路运输证_年审有效期") = False Then If e.Row("车头道路运输证_年审有效期") < = Date.Today Then e.style = "逾期" Else If e.Row("车头道路运输证_年审有效期") < = Date.Today.AddDays(30) Then e.style = "即将到期" End If End If End If End If If e.Col.Name = "挂车行驶证_年审有效期" Then If e.Row.IsNull("挂车行驶证_年审有效期") = False Then If e.Row("挂车行驶证_年审有效期") < = Date.Today Then e.style = "逾期" Else If e.Row("挂车行驶证_年审有效期") < = Date.Today.AddDays(30) Then e.style = "即将到期" End If End If End If End If If e.Col.Name = "挂车道路运输证_年审有效期" Then If e.Row.IsNull("挂车道路运输证_年审有效期") = False Then If e.Row("挂车道路运输证_年审有效期") < = Date.Today Then e.style = "逾期" Else If e.Row("挂车道路运输证_年审有效期") < = Date.Today.AddDays(30) Then e.style = "即将到期" End If End If End If End If If e.Col.Name = "保险_保险有效期止" Then If e.Row.IsNull("保险_保险有效期止") = False Then If e.Row("保险_保险有效期止") < = Date.Today Then e.style = "逾期" Else If e.Row("保险_保险有效期止") < = Date.Today.AddDays(30) Then e.style = "即将到期" End If End If End If End If

1、新项目是否会卡死，响应慢？

2、响应慢的项目发上来测试。说明具体如何操作后响应慢。

老师：

你好！我删了几张附表，用SELECT CASE 简化了下drawcell 事件的代码现在好像可以。如果再出现我就直接发上来。

谢谢老师！

主题：狐表经常响应慢，卡死