请教如何用COMBOBOX显示query数据集中一个字段的值?

Question

为什么我这样写不能将字段的值添加到ITEM,应该怎么实现？procedure TBSXXFMN.ComboBox1Click(Sender: TObject);
var
i:integer;
begin
with bsdm.QBSKD do
begin
 close;
 sql.Clear;
 sql.Text:='select BSCNAM from BSKD';
    Open;
    if (RecordCount > 0) then
      First ;
    for i := 0 to RecordCount - 1 do
    begin
      combobox1.Items.Add(fieldbyname('BSCNAM').AsString);
      next ;
    end;
end;
end;

Answer 1

最好不要在Click事件中写
你的代码没有问题
请试试用一个按钮来处理这个事件

Answer 2

//放在dropdown事件中
procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
  table1.First ();
  while not table1.Eof do
  begin
    combobox1.Items.Add(table1.FieldByName('NAME').AsString);
    table1.Next;
  end;
end;

Answer 3

将你的代码放在form.onactive时间中即可