前提說明 1.資料庫為MDB,其中有一欄位T_ID,格式為真偽 2.程式中有一段 CHECK_ID := Query.FieldByName('T_ID').AsBoolean; ..... IF (CHECK_ID = True) Then Begin 相關程式,與取出其她相關欄位資料.... end; 問題: 之前該程式運作全部沒問題,但現在突然發生一狀況 假設欄位T_ID=True,則該段落會變得很慢,且取出值也會錯誤, 如果將T_ID=False or 忽略IF (CHECK_ID = True)之判斷則正常 因為本來都無問題,突然變這樣,我又將之前備份之程式在來run一次結果居然也是這情況,拿到別台電腦執行亦是,複製之前ok的資料還是依樣,乾脆將資料表重作還是. 掃毒結果也正常,請問先進們有無碰到該問題 再次聲明,該程式原本確實是正常,也用了一段時間,只是昨天結訴Delphi時有出現"程式關閉"之錯誤而已

太奇怪了 我甚至將該程序刪除內容如下 PROCEDURE CHECK_ID(NO:STRING); BEGIN //清空內容 END; 只要一執行該程序,電腦就會停頓很久?

真是太扯了 我乾脆將PROCEDURE CHECK_ID(NO:STRING); 全部刪除 並新增一button來測試 procedure TFMPAT.Button1Click(Sender: TObject); begin CHECK_ID('AA001'); end; 居然一點該按鈕,電腦也會停頓很久,且執行時居然也不會發現該procedure以不存在了

我又發生該情況,不知該如何解決 資料表A,B各有一'T_ID'欄位 程序中會分別取出A.T_ID 與 B.T_ID 並有一段是當A.T_ID=Tre時則取出B.T_ID亦=True之相關資料 我從SQL Monitor中發現會停頓再取出資料表B中 可是我大之疑惑是原本該程式是完全沒問題的,然而複製到別台電腦亦同. 不過這回直接將備份檔拿到別台試,證實無誤(很快,資料亦正確),把備份檔拿回來試試,居然也依樣, 我試過Syntax Check,Build,Compile,有一兩次好像有效(也許是巧合),不過沒多久又發生同樣情形,不知各位先進有否其他建議 PS.這程式已經用一陣子都沒有問題,只是最近一值出錯