我的目的是在窗体上使用两个combobox,里面分别列出两个数据标的关键字段,使用了两个adoquery.并且其active=true;如果只加载一个cobbobox,没有任何错误,但是两个一起加载,就抱错了,出现错误的是这一句。while not adoquery2.eof do请问下面的代码有什么问题吗?
procedure Tha.FormCreate(Sender: TObject);
begin
combobox1.clear;
combobox2.Clear;
adoquery1.first;
adoquery2.First;
while not adoquery1.eof do
begin
combobox1.items.add(adoquery1.fieldbyname('name_short').asstring);
adoquery1.next;
end
while not adoquery2.eof do
begin
combobox2.items.add(adoquery2.fieldbyname('grade').asstring);
adoquery2.next;
endend;
procedure Tha.FormCreate(Sender: TObject);
begin
combobox1.clear;
combobox2.Clear;
adoquery1.first;
adoquery2.First;
while not adoquery1.eof do
begin
combobox1.items.add(adoquery1.fieldbyname('name_short').asstring);
adoquery1.next;
end
while not adoquery2.eof do
begin
combobox2.items.add(adoquery2.fieldbyname('grade').asstring);
adoquery2.next;
endend;
解决方案 »
- 关开汇编语言里寄存器的疑问
- 大家帮忙看看,这个问题实我实在不好描述,进来看看例子
- 很难啊~ 关于dll ?
- 如何查找某个目录中的所有文件,并将它们拷贝到另一个目录中?
- 高级控件的开发技术,过来show一下吧!up有分!
- 我在IdPOP3的UserName和Password中输入错误信息,但还是可以顺利的Connected。但在CheckMessages时居然返回的是字符串
- ado關痛問題
- 如何拆分时间成:年,月,日,时,分,秒
- 我的一点感想和疑惑。期待您的指点。
- 这个程序的窗体应该怎么添加
- 急求AUTOCAD数据读取,以及AUTOCAD的图形比较
- 使用Format函数时,如果参数时TDateTime类型的,那个%后面接什么啊?我用%f,%g都不对?
begin
combobox1.clear;
combobox2.Clear;
adoquery1.first;
adoquery2.First;
while not adoquery1.eof do
begin
combobox1.items.add(adoquery1.fieldbyname('name_short').asstring);
adoquery1.next;
end///在这里没有分号
while not adoquery2.eof do
begin
combobox2.items.add(adoquery2.fieldbyname('grade').asstring);
adoquery2.next;
endend;