ADOQuery1.DisableControl;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
  ComboBox1.Items.Add(ADOQuery1.FieldbyName('你的字段名').AsString);
  ADOQuery1.Next;
end;
ADOQuery1.EnableControl;

解决方案 »

  1.   

    combobox1.items.clear;
    adoquery1.first;
    while not adoquery1.eof do
    begin
      combobox1.items.add(adoquery1.fieldbyname('fieldname').asstring);
    end;
    当然也可以将多个字段关联起来加到combobox中.
      

  2.   

    to lovewangj(lllll)
    你的程序会把ADOQuery1的第一条记录无限制地添加下去。(少了一句ADOQuery1.Next;)
      

  3.   

    arrow_gx():
    我并不差你这2分,可是你这样给分岂不会误导后来者(当然得分者的答案是下确的了)