[求助]点击新增按钮后没有了反应，系统退出。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在点击新增按钮时，有个产地检疫申报表，当近3天没有数据时，进行提示，否则就新增。下面的按钮代码有什么问题，点击后，系统整个就没有了反应，几十秒后自动退出系统：

Dim Filter As String

Dim StartDate As Date = Date.Today().AddDays(-2)

Filter = "[申报时间] > '" & StartDate & "' And 监督所名称 = '" & User.Group & "'"

DataTables("产地检疫申报").LoadFilter = Filter

DataTables("产地检疫申报").Load()

If Tables("产地检疫申报").Current Is Nothing Then

MessageBox.Show("对不起,没有产地检疫申报的数据,不能进行动物产地检疫工作记录!", "提示")

Dim dt As DataTable = Tables("动物产地检疫工作记录").DataTable

For Each dr As DataRow In dt.DataRows

If dr.RowState = DataRowState.Added Then

dr.Delete

End If

Else

Tables("动物产地检疫工作记录").AddNew()

Tables("动物产地检疫工作记录").Current("监督所名称") = User.Group

Tables("动物产地检疫工作记录").Current("基本情况_检疫时间") = Date.Today

Forms("产地检疫工作记录录入").Open

End If

主题：[求助]点击新增按钮后没有了反应，系统退出。