各位大蝦﹐請問如何將一個數據表的某一字段的所有值賦給一個combobox控件（也就是把字段的所有值添加到下拉菜單中）﹔

[wellshddelphi]

請問如何將一個數據表的某一字段的所有值賦給一個combobox控件（也就是把字段的所有值添加到下拉菜單中）﹔

[mmtxm]

procedure TM_form.addcomboboxitems(acombobox: tcombobox;const str_sql: string);
var
tempquery:tadoquery;
begin
tempquery:=tadoquery.create(self);
if dbm.ADOConn.Connected=false then
dbm.ADOConn.Connected :=true;
with tempquery do
begin
close;
connection:=dbm.adoconn;
sql.Clear ;
sql.text:=str_sql;
open;
first;
acombobox.Items.Clear;
while not eof do
begin
acombobox.Items.Add(Fields[0].Value);
next;
end;
end;
acombobox.ItemIndex :=0;
tempquery.Close;
tempquery.Free ;
end;

str_sql如：
str_sql:='select 字段名 from 表名'

[atlaswh]

adoquery1.SQL.Clear;
sqlstr := 'sql语句';
adoquery1.SQL.Add(sqlstr);
adoquery1.Open;
cb_dcRange.Items.Clear;
while not adoquery1.Eof do
begin
cb_dcRange.Items.Add(adoquery1.Fields[0].AsString);
adoquery1.Next;
end;

[snowfoxyr]

while not ADOQuery1.eof do
begin
combobox1.items.add(ADOQuery1.fieldbyname('us_name').asstring);
ADOQuery1.next;
end;

[liuhelin]

写什么程序啊
用lookupcombobox

[wellshddelphi]

謝謝大家了﹐還是snowfoxyr(雪中狐) 的最簡單﹐ 我原來弄錯了。

combobox1.items.text:=(ADOQuery1.fieldbyname('us_name').asstring);//小心喔﹔