引言: 當Table1 初始值設為True時 程式內容如下： with table1 do begin Active := False; EmptyTable; end; 在 Run 時，為何會出現'Table is busy.'？

引言: 當Table1 初始值設為True時 程式內容如下： with table1 do begin if Active then Close; EmptyTable; end; 在 Run 時，為何會出現'Table is busy.'？

引言:

引言: 當Table1 初始值設為True時 程式內容如下： with table1 do begin if Active then Close; EmptyTable; end; 在 Run 時，為何會出現'Table is busy.'？

@@~~飛翔在天際的精靈~~@@

引言:

引言:

引言: 當Table1 初始值設為True時 程式內容如下： with table1 do begin if Active then Close; EmptyTable; end; 在 Run 時，為何會出現'Table is busy.'？

@@~~飛翔在天際的精靈~~@@

感謝兩位的幫忙，經過測試後，我發現我們三個人寫法在Compile完成，離開Delphi後，直接執行.exe檔，都可以正確執行，但在Delphi環境中直接Run則會出現現'Table is busy.'，不知適合原因？請指教！

引言: 當Table1 初始值設為True時 程式內容如下： with table1 do begin Active := False; EmptyTable; end; 在 Run 時，為何會出現'Table is busy.'？

引言:

引言: 當Table1 初始值設為True時 程式內容如下： with table1 do begin Active := False; EmptyTable; end; 在 Run 時，為何會出現'Table is busy.'？

這是因為 EmptyTable 只允許一個 Table Connect (就是獨佔模式), 而您在 Design Time 時有設為 table1.Active := True 這算一個, Run Time 時執行 table1.Active 因為內定是 True 所以又算一個, 這樣已經不是獨佔模式了, 所以才會出現 Table is busy.

引言: 當Table1 初始值設為True時 程式內容如下： with table1 do begin Active := False; EmptyTable; end; 在 Run 時，為何會出現'Table is busy.'？

引言:

引言: 當Table1 初始值設為True時 程式內容如下： with table1 do begin Active := False; EmptyTable; end; 在 Run 時，為何會出現'Table is busy.'？

這是因為 EmptyTable 只允許一個 Table Connect (就是獨佔模式), 而您在 Design Time 時有設為 table1.Active := True 這算一個, Run Time 時執行 table1.Active 因為內定是 True 所以又算一個, 這樣已經不是獨佔模式了, 所以才會出現 Table is busy.

首先感謝各位先進的指導，第一次發問，就得到這麼多的協助，您們的熱心，真令我感動！ Danny的看法應該比較接近我的處境，因為只要不在『Design Time 時有設為 table1.Active := True 』就一切OK，再次感謝大家的幫忙，祝福大家，中秋節愉快

引言: 問一下當我們做 清空資料庫 要使用獨佔模式, 設計時期雖然把active = false ; 再使用 執行時期 open; 可是如果當兩個人共用table時,怎樣子不讓它出現錯誤訊息, 或不要中斷程式;

 
  try
    .
    . 
    Active := False;
    EmptyTable;
    .
    .
    .
  except
    Showmessage('...');
  end;    參考看看！