table查询问题!小弟急用!!

                            
procedure   TForm3.SpeedButton1Click(Sender:   TObject);   
  begin  
  table2.Refresh;  
  with   table2   do  
  try  
      disablecontrols;  
      filtered:=false;  
      memo1.text:=memo1.Text+''''+edit1.text+'''';  
      filter:=memo1.text;  
      filtered:=true;  
  finally  
      enablecontrols;  
  if   table2.recordcount=0   then   begin  
  messagebeep(1);  
  showmessage('没有符合条件的学生,请确认条件或放弃查询!');  
  if   messageDlg('是否继续查询?只有结束查询才能作其他操作!',mtinformation,  
  [mbYes,mbNo],0)=mrno   then   begin  
      filtered:=false;  
  table2.close;  
  table2.Open;  
  end;  
  end   else   begin  
    if   messageDlg('是否继续查询?只有结束查询才能作其他操作!',mtinformation,  
    [mbYes,mbNo],0)=mrno   then   begin  
        filtered:=false;  
    table2.Close;  
    table2.Open;  
    end;  
  end;  
  end;  
  end;  
  小弟运行老提示!不能对closedataset进行操作!小弟急用!在线等!!

查看回复