！combobox中数据的刷新有关问题

在线等！combobox中数据的刷新问题
我通过formcreate将数据库相应字段的数据添加到了combobox中，现在发现一个问题是如果我把其中一组数据给删除，combobox中仍然显示着那串数据，一定要把程序关闭再重新打开才会更新里面的数据。我也知道formcreate是一次性的东西，那现在有没有甚么办法比如添加一个刷新按钮来更新combobox中新的数据(或是更好的办法...)关闭程序重新打开巨麻烦啊~~~

------解决方案--------------------
如果增加/删除/修改时同时增加/删除/修改combobox中对应的数据,会麻烦点,要处理很多相关的事件
不如重新加载数据来的方便

Delphi(Pascal) code

{声明方法setcomb}
private
 procedure setcomb;

{添加combobox数据,数据来源自己决定从那里取}
procedure TForm1.setcomb;
begin
  with combobox.items do
  begin
   clear;
   add('A');
   add('B');
  end;
end;

{打开窗口时调用}
procedure TForm1.FormCreate(Sender: TObject);
begin
setcomb;
end;

{刷新按扭调用,或者其它想刷新的地方就加上setcomb;就行了}
procedure TForm1.Button1Click(Sender: TObject);
begin
setcomb;
end;

------解决方案--------------------

探讨

感谢LS的指点~问题大致是解决了~但发现这刷新貌似只能点一次~点第二次就报内存错误了，麻烦帮我看下是不是我获取数据库时的方式不对~

procedure TCRSH.setcomb;
begin
with adoqueryDW do
begin
sql.Clear;
sql.Add('select 单位名称 from 单位类别表');
……

------解决方案--------------------
procedure TCRSH.setcomb;
begin
with adoqueryDW do
begin

//这里加
sql.close;

sql.Clear;
sql.Add('select 单位名称 from 单位类别表');

！combobox中数据的刷新有关问题

相关推荐