錯誤訊息請教 |
尚未結案
|
jacosun
一般會員 發表:42 回覆:64 積分:21 註冊:2003-04-18 發送簡訊給我 |
Project Project1.exe raised exception class EListError with message'List index out of bounds(4)'.Process stopped.Use step or Run to contineu.
以上是我執行時的錯誤訊息.... 下面是我的程式碼
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.Open;
Table2.Open;
Table1.First;
while not Table1.Eof do
begin
Table2.Append;
Table2.Fields[0].Assign(Table1.Fields[0]);
Table2.Fields[1].Assign(Table1.Fields[1]);
Table2.Fields[2].Assign(Table1.Fields[2]);
Table2.Fields[4].Assign(Table1.Fields[4]);
Table2.Fields[3].AsDateTime:=DateTimePicker1.date;
Table1.Next;
end;
end;
end.
說明:我用兩個資料表,其中我在table1上面做資料輸入後,存入table2的資料表裡,存檔完後table1的資料表回復原始(這部分尚未寫出)。在table2的第四個欄位是時間格式。(資料庫是用Paradox格式)
謝謝大大 ^^
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
引言: while not Table1.Eof do begin Table2.Append; Table2.Fields[0].Assign(Table1.Fields[0]); Table2.Fields[1].Assign(Table1.Fields[1]); Table2.Fields[2].Assign(Table1.Fields[2]); Table2.Fields[4].Assign(Table1.Fields[3]); Table2.Fields[3].AsDateTime:=DateTimePicker1.date; Table2.Post; Table1.Next; end;打錯了吧 ! 不過這種錯誤, 應該可以自己抓出 Bug 才對喔. 發表人 - Mickey 於 2003/06/12 18:05:15 發表人 - Mickey 於 2003/06/12 18:06:32 |
jacosun
一般會員 發表:42 回覆:64 積分:21 註冊:2003-04-18 發送簡訊給我 |
引言:] 我試了又試,只要前兩個欄位的話就可以(不用寫table2.post 就可以複製過去)。所以說.......我真得不知道問題丫 能否請大大跟我說那個錯誤訊息的意思呢?? 而 assign這個屬性的適用於兩個完全相同的資料表對拷才有用嗎?? 謝謝大大 麻煩你了 請多包含新手....引言: while not Table1.Eof do begin Table2.Append; Table2.Fields[0].Assign(Table1.Fields[0]); Table2.Fields[1].Assign(Table1.Fields[1]); Table2.Fields[2].Assign(Table1.Fields[2]); Table2.Fields[4].Assign(Table1.Fields[3]); Table2.Fields[3].AsDateTime:=DateTimePicker1.date; Table2.Post; Table1.Next; end;打錯了吧 ! 不過這種錯誤, 應該可以自己抓出 Bug 才對喔. |
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
jacosun
一般會員 發表:42 回覆:64 積分:21 註冊:2003-04-18 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |