主题：[求助] 两个问题：项目不能正常关闭，加载太慢甚至死机

1、项目项目不能正常关闭，必须要通过任务管理器来强行关闭，请问可能是什么原因？

2、我通过制造下单表加载对应的子明细，代码如下：

    If Tables("制造下单明细").Current IsNot Nothing Then
        Dim dr As Row = CurrentTable.Current
        Dim Filter As String = "[产品ID] = '" & dr("产品ID") & "'"
        DataTables("工序计划表").LoadFilter = Filter
        DataTables("BOM表").LoadFilter = Filter
        DataTables("制造下料表").LoadFilter = Filter
    Else
       DataTables("BOM表").LoadFilter = "[_Identify] is null"
       DataTables("制造下料表").LoadFilter = "[_Identify] is null"
       DataTables("工序计划表").LoadFilter = "[_Identify] is null"
   End If
   DataTables("BOM表").Load()
   DataTables("制造下料表").Load()
   DataTables("工序计划表").Load()

   项目反应极慢，甚至会死机。

   说明：

    a、外部数据源，在厂内的服务器上；

    b、《工序计划表》共有18.4万行记录，《BOM表》共有5.2万行记录，《制造下料表》共有3.2万行记录；

    c、我将access数据从服务器拷到本机上，则反应很快，也不会死机。

1、我来改善一下代码，减掉不必要的数据保存；

2、AfterLoad事件有写代码，还不少；

3、从外部数据源的目录下拷贝一个二十几兆的文件到本机，只用一、两秒，应该算比较快吧