我在运行程序时,每次进入一个有combobox控件的页面时,进入一次它的值就重复一次,比如是:第一次,combobox的下拉值是1\2\3,第二次进入时就是:1\2\3\1\2\3,第三次就是1\2\3\1\2\3\1\2\3。这们重复,这是怎么回事啊,快帮帮忙吧?我的代码是:
procedure TForm3.FormShow(Sender: TObject);
begin
with query1 do
begin
close;
sql.add('select SA02 from s_sa');
open;
while not eof do
begin
combobox1.Items.add(fieldvalues['sa02']);
Query1.next;
end;
end;
end;
解决方案 »
- treeview显示图标问题
- 谁有EK RTF 报表控件 FOD D7的??急需
- 奇怪!! 关联文件后,双击打开关联的文件,在exe中居然参数出错,路径中的空格居然把文件路径分成两个参数?? 在线等
- 请问这样的多次查询如何处理?很着急!!!希望得到大家指点!!!
- 求救!!!
- 如何通过ADSI来给AD中的Schema添加属性,并给Schema下的CLASS添加属性???
- 关于MediaPlayer1的filename设路径问题,很迷茫!
- winsocket发送出错,不知道是不是2000的问题,多多关注!
- 请问哪里有Cute ftp 好一点的软件下哟!
- 关于模糊查询的问题
- 为什么我实现的插入只能插入一条纪录?
- 一个很辣手的问题,请大家帮帮忙啊,在线急等
combobox1.Items.clear;
begin
combobox1.Items.clear; //加上这一句
with query1 do
begin
close;
sql.add('select SA02 from s_sa');
open;
while not eof do
begin
combobox1.Items.add(fieldvalues['sa02']);
Query1.next;
end;
end;
end;