这段代码里还应该加什么?

                            
procedure   TForm1.aaa(we:string);   
  var   qq:string;  
          pp:TBookmark;  
  begin  
            combobox1.Enabled:=true;  
            with   adoquery1   do  
            begin  
                    close;  
                    sql.Clear;  
                    sql.Add('select   考试时间   from   jk   where   界数='+''''+   we   +'''');  
                    open;  
   
                    begin  
                      pp:=getbookmark;  
                  disablecontrols;  
                    try  
                    begin  
                          first;  
                          while   not   eof   do  
                          begin  
                                qq:=   fieldbyname('考试时间').asstring;  
                                combobox1.Items.Add(qq);  
                                combobox2.items.add(qq);  
                                next;  
                          end;  
                    end;  
                      finally  
                      if   pp<>nil   then  
                      begin  
                            gotobookmark(pp);  
                            freebookmark(pp);  
                            end  
                        enablecontrols;  
   
                  end;  
                  end;  
                end;  
   
  end;  
  当连续击点时,如果‘界数’=we的记录一个也没有,则出现  
  eof   或者bof有一个是“真”,或者当前的记录已经被删除,所须的操作要求一个当前的记录,  
  怎么改一下,使之不出现这个提示  
 

查看回复