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

Question

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组件的下拉列表中还是无法显示所有“部门编号”的信息（只能显示一条）？？？？

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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;

Answer 6

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