delphi下拉列表显示sql server查询一列的全部数据

设置 combobox.Style := csDropDownList;就额可以了. 用下边这个过程,你可以 SQLSTR:='select distinct career from your_table ' select :='career'; combobox,就是你想存放的下拉列表框. procedure incombobox(combobox: TComboBox; sqlstr, select: string); begin with DM do begin AdoQ.Close; ADOQ.SQL.Clear; ADOQ.SQL.Add(sqlstr); ADOQ.Open; adoq.First; combobox.Items.Clear; while not ADOQ.Eof do begin combobox.Items.Add(ADOQ.fieldbyname(select).AsString); adoq.Next; end; ADOQ.Close; combobox.Style := csDropDownList; combobox.ItemIndex := 0; end; end;