关于dbcombobox与sql2000数据表中的某个字段连接的问题

Question

本人使用dbcombobox与sql2000数据表中的某个字段连接,我使用的方法是:
procedure TForm7.DBComboBox1DropDown(Sender: TObject);
var
  I: Integer;
begin
  inherited;
  //DBComboBox1.Clear;
  with DataModule1.ADOQuery2 do
  begin
    SQL.clear;
    SQl.Text := 'select 客户全称 from 客户基础信息表 ';
    Close;
    Active := False;
    prepared := False;
    prepared := True;
    Active := True;
    if (recordcount > 0) then
      first;
    for i := 0 to recordcount - 1 do
    begin //取得该列所有的数据到combobox1控件中
      DBComboBox1.Items.add(FieldByName('客户全称').asstring);
      next;
    end;
  end;
end;
现在的问题是在dbcombobox中已将字段条目的所有内容添加了,但是不能进行条目的选取和显示,比如我要换一个条目在dbcombobox中没有显示,也不改变.为什么?

Answer 1

//建议使用
while not eof do
begin
  ....;
  next;
end;
是否设置了DataSourect和DataField属性
其实用TCombobox挺好的，干嘛非用感知控件。