query这样用有什么错误！

Question

with query1 do begin
      close;
      SQL.Add(…………) ;
      open;
      while not Eof do begin
      Active := false;
      Active := true;
      ConsolidateGrid1.Cells[0,row] := inttostr(row);
      ConsolidateGrid1.Cells[1,row] := Fields[0].AsString;
      ConsolidateGrid1.Cells[2,row] := Fields[1].AsString;
      ConsolidateGrid1.Cells[3,row] := Fields[2].AsString;
      row := row + 1;
      Next;
end;以上代码运行后，没有任何反应，也没有错误提示。当把“while not Eof do begin”和“Next”去掉以后，也就是说只显示一条数据的时候，运行没有任何问题。能把第一条数据显示出来。请问这是怎么回事？谢谢了先！

Answer 1

加上
open前加上query1.prepare;
去掉 Active := false;   Active := true;没有必要我觉得。不知道你是做什么的。
query1.first;
你的begin....end.也不对。

Answer 2

少了一个END
with query1 do begin
      close;
      SQL.Add(…………) ;
      open;
      while not Eof do begin
      Active := false;
      Active := true;
      ConsolidateGrid1.Cells[0,row] := inttostr(row);
      ConsolidateGrid1.Cells[1,row] := Fields[0].AsString;
      ConsolidateGrid1.Cells[2,row] := Fields[1].AsString;
      ConsolidateGrid1.Cells[3,row] := Fields[2].AsString;
      row := row + 1;
      Next;
      end;
end;

Answer 3

不好意思，那个end在我程序里是有的，刚才往这里拷的时候漏掉了。

Answer 4

ok,谢谢“帅哥_221”,呵呵，解决了。还有个问题想问一下，就是你说的那个query1.first是作什么用的。

Answer 5

query1.first
--当前记录设为第一条记录

Answer 6

你在 While 循环 加了 Active := false;和Active := true;也就是说，在While 循环中不停地打开和关闭表，后果是永远只有一条记录的死循环，应去掉 Active := false;和 Active := true