我是個Delphi的新手 我想請問一下 程式剛開始執行時從資料表一其中一個欄位的所有資料讀進ComboBox 然後按下Button以後,能再把ComboBox所選的資料存入資料表二的一個欄位之中 不知該從何寫起.....煩請各位前輩多多指點一下,謝謝

您好﹗ 問題一﹕

begin
  ADOTable1.Open;
  ADOTable1.First;
  While Not ADOTable1.Eof do
  begin
    ComboBox1.Items.Add(ADOTable1.Fields.Fields[0].AsString);
    ADOTable1.Next;
  end;
end;

問題二﹕

Var
  I : Integer;
begin
  For I:= 0 to ComboBox1.Items.Count-1 do
  begin
    ADOTable2.Insert;
    ADOTable2.FieldByName('欄位名稱').AsString := ComboBox1.Items.Strings[I];
    ADOQuery2.Post;
  end;
end;

========================= 大病初愈﹐休養調整中... ========================= 發表人 - cashxin2002 於 2004/10/01 14:34:17

------
忻晟

Hi, 除了 cashxin2002兄的方式, 這種類似對照性的選擇元件, 可以利用現成的 TDBLookupComboBox 來進行會更容易, 簡單的說明如下. TDBLookupComboBox 的幾個重要屬性設定. 1. ListSource: 對應資料表的 datasource 2. ListField: 對應資料表要顯示出來的值 3. KeyField: 對應資料表的欄位對照值 4. DataSource: 就是來源的資料表的 datasource 5. DataField: 來源資料表的欄位值 其中 4, 5就是一般的資料感知元件所使用的 DataSource 及 DataField, 而 1, 2, 3 就是 TDBLookupComboBox 用來查詢對照表用的欄位. 如此一來就不需要自行維護這些程式, 而可以利用資料感知元件的特性來進行操作囉, 即方便又省事!