应该还是个挺容易的问题吧？帮帮忙啦，挺急的~

Question

是这样的，我想把数据库里的某个字段的内容读出并将值赋给ComboBox，让其下拉菜单里显示数据库某字段的内容，请问怎么做谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  ComboBox1.Items.Clear;
  with ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Text :=' select distinct code from iitemmaster ';
    open;
    if not IsEmpty then
    begin
      for i:=0 to RecordCount-1 do
      begin
        ComboBox1.Items.Add(fieldbyname('code').AsString);
        next;
      end;
    end;
end;
end;

Answer 2

select distinct field from table 
然后
cbb.items.clear
dataset.firest
while not dataset.eof
begin
cbb.items.add(fieldbyname(fieldname).asstring);
dataset.next;
end;