全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:995
推到 Plurk!
推到 Facebook!

locate問題

尚未結案
bibo
一般會員


發表:10
回覆:9
積分:3
註冊:2002-06-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-03-22 16:23:52 IP:203.203.xxx.xxx 未訂閱
將一時段的查詢結果存到A表格中, 又將另一時段的查詢結果再存入, 因為兩時段有交集, 所以在存入時,需判斷A表格中是否已有資料, 故用locate去看a表格的資料 if tShow.Locate('Pat_no;ExamDate',VarArrayOf([qShow.FieldByName('Pat_no').value,qShow.FieldByName('OP_DATE').value]),[]) then else temerg.Append; 若為true,則不存,若為false才存, 但為什麼當執行到上述程式碼時,會出現錯誤訊息, "記錄/鍵值被刪除" 這是哪裡出了問題。
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-03-22 23:30:34 IP:203.204.xxx.xxx 未訂閱
引言: 將一時段的查詢結果存到A表格中, 又將另一時段的查詢結果再存入, 因為兩時段有交集, 所以在存入時,需判斷A表格中是否已有資料, 故用locate去看a表格的資料 if tShow.Locate('Pat_no;ExamDate',VarArrayOf([qShow.FieldByName('Pat_no').value,qShow.FieldByName('OP_DATE').value]),[]) then else temerg.Append; 若為true,則不存,若為false才存, 但為什麼當執行到上述程式碼時,會出現錯誤訊息, "記錄/鍵值被刪除" 這是哪裡出了問題。
bibo 你好 我第一個直覺是Locate用的是tSHow 而Append的卻是temerg滿奇怪的,tShow和temerg是否都是TTable呢還是其他的,可以說明一下你使用的元件及相關設定嗎?這樣會比較好判斷問題點在那裡。
bibo
一般會員


發表:10
回覆:9
積分:3
註冊:2002-06-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-03-23 09:26:44 IP:203.203.xxx.xxx 未訂閱
tSHow 和temerg都是TTable,而且都是指到相同的表格。
bibo
一般會員


發表:10
回覆:9
積分:3
註冊:2002-06-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-03-23 09:36:37 IP:203.203.xxx.xxx 未訂閱
大概猜測一下問題點, 從一堆關連表格中 where (C.OP_DATE>=TO_DATE('2004/03/22 03:55:00','YYYY/MM/DDHH24:MI:SS') AND C.OP_DATE<=TO_DATE('2004/03/22 05:05:00','YYYY/MM/DD HH24:MI:SS')) 找出資料後,寫入a表格 另一時間點 where (C.OP_DATE>=TO_DATE('2004/03/22 04:55:00','YYYY/MM/DDHH24:MI:SS') AND C.OP_DATE<=TO_DATE('2004/03/22 06:05:00','YYYY/MM/DD HH24:MI:SS')) 因為時間有交集,故需判斷之前若有的資料,我就不寫入a表格了, 而錯誤訊息會出現,就是當真的有locate到資料時,就出錯了。 if tShow.Locate('Pat_no;ExamDate',VarArrayOf([qShow.FieldByName('Pat_no').value,qShow.FieldByName('OP_DATE').value]),[]) then else temerg.Append; 這和op_date是時間格式有影響嗎?
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-03-23 15:49:49 IP:211.20.xxx.xxx 未訂閱
改成如下程式碼看看  
 
if Not tShow.Locate('Pat_no;ExamDate',VarArrayOf([qShow.FieldByName('Pat_no').value,qShow.FieldByName('OP_DATE').value]),[]) then
  tShow.Append;// 不要用 temerg
系統時間:2024-09-08 2:50:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!