請教各位: 在我的 form 內有 1 個 TTable, 1 個 TADOQuery, 我想將 TADOQuery 的資料傳給 TTable, 目前我的做法是以如下: while not eof begin 將資料取出, 再 append 入 TTable end; 但我覺得效率很差, 請問有其他較佳的方法嗎? 比如說只要一個指令就將 TADOQuery 的資料傳入 TTable 謝謝

引言: 請教各位: 在我的 form 內有 1 個 TTable, 1 個 TADOQuery, 我想將 TADOQuery 的資料傳給 TTable, 目前我的做法是以如下: while not eof begin 將資料取出, 再 append 入 TTable end; 但我覺得效率很差, 請問有其他較佳的方法嗎? 比如說只要一個指令就將 TADOQuery 的資料傳入 TTable 謝謝

TAdoQuery採用ADOConnect TTable採用BDE的TDatabase 這兩種不同的資料引擎 可能沒有簡易的傳入辦法! ～～～Delphi K.Top討論區站長～～～

johnber 你好    用一個指令完成恐怕有問題，用幾行程式完成倒是可行

 
Var
  TrnField : String;
  v        : Variant ;
  bm : TBookMark;
Begin
  TrnField := 'Field1;Field2;Field3...' ;//指定要搬移的欄位串列
  DataSet1.DisableControls;
  Table1.DisableControls;
  bm := DataSet1.GetBookMark;
  DataSet1.First;
  While Not DataSet1.eof Do Begin
    v := DataSet1[TrnField]; // 複製到變數
    Table1.Append;
    Table1[TrnField] := v ; // 寫到Table1;
    Table1.Post;
    DataSet1.next;
  end;
  DataSet1.EnableControls;
  Table1.EnableControls;
  DataSet1.GotoBookMark(bm);
End;