为什么这一段代码不对？

我的目的是在窗体上使用两个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;  
      end  
   
  end; 问题点数：20、回复次数：5Top

1 楼zhlwyy（生活很累，但是因为生活才有意义。）回复于 2004-08-01 17:58:43 得分 5

end；Top

2 楼lixudo1975（）回复于 2004-08-01 18:01:25 得分 0

能不能说清楚点？我是菜鸟，我也感觉似乎是end的事情，可是不知道那里错了，Top

3 楼lixudo1975（）回复于 2004-08-01 18:07:04 得分 0

大家帮个忙啊Top

4 楼lixudo1975（）回复于 2004-08-01 18:38:00 得分 0

dingTop

5 楼flayyao（姚俊）回复于 2004-08-01 18:38:35 得分 15

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;  
      end  
   
  end;  
   
   
  Top

相关问题

• adoquery
• combobox
• fieldbyname
• asstring
• clear
• eofdo begin
• next
• items
• add

• 帖主：lixudo1975
• zhlwyy
• flayyao

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载