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

设置 combobox.Style := csDropDownList就额可以了. 用下边这个过程,你可以 SQLSTR:='select distinct career from your_table ' select :='career' combobox,就是你想存放的下拉列表框. procedure incombobox(combobox: TComboBoxsqlstr, 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

那一定是你combobox.text没有包含在下拉列表数据那里，你是否有用combobox.items.add('你的数据')？

我做了个DEMO是完全可以的，仅供参考：

procedure TForm1.Button1Click(Sender: TObject)

begin

ComboBox1.Items.Add('A')

ComboBox1.Items.Add('B')

ComboBox1.Items.Add('C')

ComboBox1.Items.Add('D')

end

procedure TForm1.Button2Click(Sender: TObject)

begin

ComboBox1.Text := 'C'

ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(ComboBox1.Text)

ShowMessage(IntToStr(ComboBox1.ItemIndex))

end

---