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格式) 謝謝大大 ^^

引言: 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

引言:

引言: 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 才對喔.

] 我試了又試，只要前兩個欄位的話就可以(不用寫table2.post 就可以複製過去)。所以說.......我真得不知道問題丫 能否請大大跟我說那個錯誤訊息的意思呢?? 而 assign這個屬性的適用於兩個完全相同的資料表對拷才有用嗎?? 謝謝大大 麻煩你了 請多包含新手....

[code] 1. index out of bound (4) 是說 , 某個 List 第 5 個單位不存在 如 Table 只有 4 個欄位, 而於程式中引用 Table.fields[4] 就會有問題. 2. 如果是要複製 Table1 的資料到 Table2 , 用 Table2.fields[x].value := Table1.fields[y].value; 不要用 Assign Method.

引言: [code] 1. index out of bound (4) 是說 , 某個 List 第 5 個單位不存在 如 Table 只有 4 個欄位, 而於程式中引用 Table.fields[4] 就會有問題. 2. 如果是要複製 Table1 的資料到 Table2 , 用 Table2.fields[x].value := Table1.fields[y].value; 不要用 Assign Method.

謝謝大大.....