主题：[求助]写错表事件导致整个项目不能打开，有什么办法可以解决？

If e.Table.Current Is Nothing Then '如果Current为Nothing

    Return '则返回

End If

Dim rw As Row = e.Table.Current

If rw Is Nothing Then

    Return '则返回

End If

If rw("清单号")="" Then

    Return '则返回

End If

SystemReady =  False

'messagebox.show(rw("清单号"))

If Tables("订单物品临时表").Current("产品号")="" Then Return

'messagebox.show(2)

If Tables("订单唯一码表").findrow("[清单号]='" & Tables("订单物品临时表").Current("清单号") & "'")=-1 Then Return

'messagebox.show(3)

If Tables("订单物品临时表").Rows.Count>0  Then Tables("订单唯一码表").filter="[清单号]='" & Tables("订单物品临时表").Current("清单号") & "'"

SystemReady =  True

上面的代码复制到了AfterSelChang事件中，结果整个崩溃，项目再也打不开了，有什么办法可以复活？修改了好多，没有备份