各位大大： 我現在有一個資料庫，想用combobox去中顯示資料庫中各筆資料 serial_number 001 002 003 當用combobox（或DBcombobox)中顯示這個資料庫的Serial_number內所有的資料，可以嗎？ 其中是否可以加一項"ALL"時，我就要選擇全部的哦！ 向你學習！謝謝 ！

先拉一個tquery進來 程式碼 query1.Active := false; query1.SQL.clear; queyr1.SQL.add('select * from tablename'); query1.active := true; while not query1.eof do begin combobox1.items.add(trim(query1['fieldname'])); query1.next; end; 若要加上'ALL'就再加上下行code combobox1.items.add('ALL');

query1.Active := false;
query1.SQL.clear;
queyr1.SQL.add('select * from tablename');
query1.active := true;
while not query1.eof do
begin
combobox1.items.add(trim(query1['fieldname'].AsString));
query1.next;
end;  

如果是DBcombobox1，那在属性里直接连数据集就行了

感谢两位的指教！ 我是想请问： 如何用combobox把资料库中serial_number所有的内容显示出来，便于我的选择啊！ 敬请指教哦！ 你们教我的是如何加入，我想要的是如何显示？ 向你学习！谢谢！

Hi suntao008,    1.Add Item to ComboBox

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.DisableControls;
  ComboBox1.Clear;
  ComboBox1.Items.Add('ALL');
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT DISTINCT ID FROM HR_EMP_BASE ORDER BY ID');
  Query1.Open;
  while not Query1.Eof do
    begin
      ComboBox1.Items.Add(Query1.FieldByName('ID').AsString);
      Query1.Next;
    end;
  ComboBox1.ItemIndex := 0;
  Query1.Close;
  Query1.EnableControls;
end;

2.Open Query2 by ComboBox.Text

procedure TForm1.Button2Click(Sender: TObject);
begin
  Query2.Close;
  Query2.SQL.Clear;
  if ComboBox1.ItemIndex = 0 then
    Query2.SQL.Add('SELECT * FROM HR_EMP_BASE ORDER BY ID')
  else
    Query2.SQL.Add('SELECT * FROM HR_EMP_BASE WHERE ID = '   Quotedstr(ComboBox1.Text)   ' ORDER BY ID');
  Query2.Open;
end;    OR    procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Query2.Close;
  Query2.SQL.Clear;
  if TComboBox(Sender).ItemIndex = 0 then
    Query2.SQL.Add('SELECT * FROM HR_EMP_BASE ORDER BY ID')
  else
    Query2.SQL.Add('SELECT * FROM HR_EMP_BASE WHERE ID = '   Quotedstr(TComboBox(Sender).Text)   ' ORDER BY ID');
  Query2.Open;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman