好心的大哥们：帮帮忙！ DBComboBox1？？？？？？？

[kucool]

procedure Tbumen.FormCreate(Sender: TObject);
var i:integer;
begin
with aq do
begin
Close;
SQL.Clear;
SQL.ADD('Select * from t_bm');
Open;
end;
for i:=0 to aq.RecordCount-1 do
Begin
DBComboBox1.Items.Add(aq.FieldValues['部门编号']);
aq.Next;
end;
end;

上面的程序对吗？ 编译通过了，可是DBComboBox1组件的下拉列表中还是无法显示所有“部门编号”的信息（只能显示一条）？？？？

[yuanguangxing]

DBComboBox1换成ComboBox控件，或直接设置DBComboBox控件的属性

[gulf1234]

在语句for i:=0 to aq.RecordCount-1 do之前，增加一行，aq.first。

[Rubi]

dbcombobox1直接绑定数据源
combobox1用以上代码

[老之]

加几句：
DBComboBox1.DataSource:=DataSource1;
DBComboBox1.Field:=''部门编号';
for i:=0 to aq.RecordCount-1 do
Begin
DBComboBox1.Items.Add(aq.FieldValues['部门编号']);
aq.Next;
end;
AQ.First;

[deansroom]

procedure Tbumen.FormCreate(Sender: TObject);
var i:integer;
begin
with aq do
begin
Close;
SQL.Clear;
SQL.ADD('Select * from t_bm');
Open;
end;
end;
添加datasource控件 dataset 设置为ad 设置DBComboBox1 datasource 为datasource1 fieldbyname为需要的字段
或者使用combobox1时候为
procedure Tbumen.FormCreate(Sender: TObject);
var i:integer;
begin
combobox1.items.clear;
with aq do
begin
Close;
SQL.Clear;
SQL.ADD('Select * from t_bm');
Open;
first;
while not eof do
Begin
ComboBox1.Items.Add(aq.FieldValues['部门编号']);
aq.Next;
end;
end;
end;

[deansroom]

添加datasource控件 dataset 设置为ad 设置DBComboBox1 datasource 为datasource1 fieldbyname-----修改为fieldname