老大们，请看DBComboBox1

Question

我在程序中加入下列代码procedure TForm1.FormCreate(Sender: TObject);
begin
  with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from area');
    open;
    first;
    while not eof do
    begin
      DBComboBox1.Items.Add(adoquery1.Fields[0].asstring);
      next; 
    end;
  end;
end;怎样才能在DBComboBox1使鼠标点击选中所需的选项

Answer 1

在DBComboBox1的CLICK下
   with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from area where 第一个字段='''+dbcombobox1.text+''' ');
    open;
    .
    . 
    .
    .
  end;