我在程式中, 新增資料至一個table, post之後, 我下了close指令, 再下open指令, 系統會出現....can't perform this operation in a closed dataset.    而且, 很奇怪的狀況是, 這個錯只會出現在, 我執行一個excel匯出動作之後, 可是, 我excel匯出的功能, 跟這個table完全沒有關聯, 為什麼會發生這個問題呢?  煩請各位高手指點一二, 謝謝! 發表人 -

由錯誤訊息來看. 確時是要操作一個 closed dataset, 但不是 open 造成的, 請詳細 check 一下你的流程, 因為通常發生的原因是不小心對未開啟的 dataset 進行異動或讀取的行為才會有這樣的錯誤訊息!

我試了很多種方法....終於try出為什麼會出現這個錯誤, 原因在, 我讓user用opendialog方式,自行選取一個excel檔, 我再把資料寫入該檔案中... 我如果把opendialog拿掉, 直接指定檔案, 就不會有這個問題, 為什麼呢? 因為excel這部份是要套表,套固定格式,所以沒辦法固定filename,所以請問各位朋友,有其它方法可以解決這個問題嗎?

您好!    是否可請列出這段相關的程式碼!    ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

是不是使用者不選檔案的狀況下發生的呢? 可以在執行 opendialog 後檢查是否有選擇檔案, 若沒有再繼續選擇.

因程式有五六千行, 我debug時, 它出現的錯誤是 OleException with message'系統找不到指定的路徑' 還有, 我的table都是用xml方式LoadFromFile,及SaveToFile. 我有寫一個類似的小程式去實作....並沒有問題...不知問題到底出在那裡?

沒, 是選檔後產生excel檔, 再去別個page做查詢動作時發生的, 問題是, 兩個功能用的是不用的table, 為什麼會有影響呢? 如果不使用opendialog直接指定檔名, 就不會發生這個錯誤, 有人知道是為什麼嗎? :( 我真的找不到問題...

button1 in page1 : 用A Table查出來的資料來產生excel if OpenDialog1.Execute then begin try MyExcel := CreateOleOBject('Excel.Application'); MyExcel.WorkBooks.open(OpenDialog1.FileName); MyExcel.visible := true; ... 略(因為這一段mark掉並不影響錯誤的產生...我試過了>_<) ... except showmessage('產生Excel檔失敗!'); end; end; button2 in page2 : 用來查詢下單狀況 //清除table內的資料 with dmMain.adoTable_QueryOrder do begin DisableControls; Filtered:=False; while RecordCount > 0 do Delete; EnableControls; end; //依帳號將委託資料查出 len:=QueryList.Count; //確定要查詢的帳號 for i:=0 to len-1 do begin QueryOrder(Trim(QueryList.Strings[i])); //再此功能中, 會將查出來的資料 insert data into dmMain.adoTable_QueryOrder end; //依欄位做filter with dmMain.adoTable_QueryOrder do begin DisableControls; Filtered:=False; ... 略 (產生filter條件) ... Filter:=filter 條件; Filtered:=True; SaveToFile(PROGRAMPATH 'XML\QueryOrder.xml',pfXML); Close; Open; First; EnableControls; end;

對不起, 忘了補上, 錯誤會在執行  //依欄位做filter     with dmMain.adoTable_QueryOrder do     begin       DisableControls;       Filtered:=False;       ...       略 (產生filter條件)       ...       Filter:=filter 條件;       Filtered:=True;       SaveToFile(PROGRAMPATH+'XML\QueryOrder.xml',pfXML);       Close;       Open;  <-------OleException error with message 系統找不到指定的路徑       First;       EnableControls;     end;