TabSheet页面之间切换出错了。。

procedure   TForm2.TabSheet2Show(Sender:   TObject);  
  begin  
    with   adoquery2   do  
    begin  
    close;  
    sql.Add('select   distinct   宿舍楼号   FROM   ssmsg');  
    open   ;  
    flatComboBox7.Clear;  
    flatComboBox8.Clear;  
    end;  
    while   not   (adoquery2.Eof)   do  
      begin  
          flatComboBox7.Items.Add(adoquery2.Fields[0].AsString);  
          adoquery2.Next;  
      end;  
  adoquery2.close;  
  end;  
   
   
  问题是我从其他TabSheet页切换回这一页，就弹出了错误提示，说我from子句错误  
  提示如下  
  project   project1.exe   raised   exception   class   EOLeException   with   message   'FROM子句语法错误。'.  
   
   
  怎么回事呢  
  页面有用到adoquery组件，第一次进去可以  
  切到其他页再切回来就那样的提示了。。  
   
  问题点数：20、回复次数：6Top

1 楼ylyn（李易）回复于 2004-05-03 07:28:07 得分 10

 
  close;  
    sql.Add('select   distinct   宿舍楼号   FROM   ssmsg');  
    open   ;  
  问题出在这里，  
  SQL.Clear;  
  SQL.Add('select   distinct   宿舍楼号   FROM   ssmsg');  
   
  如果你嫌用Clear麻烦，直接这样写也成  
  SQL.Text:='select   distinct   宿舍楼号   FROM   ssmsg';Top

2 楼wlyc（无聊烟囱）回复于 2004-05-03 13:30:54 得分 0

好的  
  我试试Top

3 楼luckzhangs（飞）回复于 2004-05-03 14:38:04 得分 5

with   adoquery2   do  
    begin  
    close;  
    clear;  
    sql.Add('select   distinct   宿舍楼号   FROM   ssmsg');  
    open   ;  
    flatComboBox7.Clear;  
    flatComboBox8.Clear;  
    end;  
  Top

4 楼sunzhiquan（欧阳炎炎）回复于 2004-05-03 14:42:27 得分 5

加一个sql.clear;  
  Top

5 楼wlyc（无聊烟囱）回复于 2004-05-03 19:20:16 得分 0

SQL.Clear;  
  SQL.Add('select   distinct   宿舍楼号   FROM   ssmsg');  
   
  如果你嫌用Clear麻烦，直接这样写也成  
  SQL.Text:='select   distinct   宿舍楼号   FROM   ssmsg';  
   
  两样我都试过了啊  
  还是一样的提示啊Top

6 楼wlyc（无聊烟囱）回复于 2004-05-03 19:24:49 得分 0

恩，可以了，谢谢  
  　是我下面还有一个用到adoquery少了clear  
  Top

相关问题

• sql
• flatcombobox
• tabsheet
• adoquery
• clear
• 宿舍楼号
• 提示
• select distinct
• from ssmsg
• do begin

• 帖主：wlyc
• ylyn
• luckzhangs
• sunzhiquan

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