【问题】查询出错**

huixiangtao

在一个 功能的beforeFlowout事件中写了以下代码，同样的 sql语句在数据库中测试，查到3条记录，而i一直是1.怎么回事呢？
var
  tsb:string;
  ltime:string;
  i:integer;
  lfilter:string;
  lQuery:TQuery;
begin
  ltime:=sysutils.DateToStr(sysutils.Now-7);
  tsb:=dsbEvent.DataSet.FieldByName('sbbh').AsString;
  if tsb='' then  exit
else
begin

  lfilter:= 'select * from eventmsg where sbbh = '''+ tsb +''' and eventCreateTime >to_date('''+ltime + ''', ''yyyy-mm-dd'')';

  TSQLDataSet(dsbEvent.DataSet).SQL.Text:=lfilter;

  dsbEvent.DataSet.Open;

  i:=dsbEvent.DataSet.RecordCount;
  if i >=3 then
  begin
     dialogs.ShowMessage('该设备一周内出现五次告警，升级为问题！ ');

  end;
end;

jiahaiming

在TSQLDataSet(dsbEvent.DataSet).SQL.Text:=lfilter;前加一句试试：
dsbEvent.DataSet.close

huixiangtao

结了。谢谢