adoquery 下移一个记录的问题，帮我解决下别拖到明年啊！
这段代码运行的时候没问题， 就是 adoquery1 不下移一行 ， 我下面加的 有adoquery1.next；高手帮忙解决下！
for i:=1 to stringgrid1.RowCount do
begin
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.sql.Add('select KFZT,KFH,RQ from KF where KFZT="是" order by KFH');
adoquery1.open;
with adoquery2 do
begin
close;
sql.Clear;
sql.Add('select XM,KFH,ZJHM,DJ,RZRQ,YFK,YJLD,BZ from KRXX where KFH=:kfh and RZRQ between :rq and :dqrq');
Parameters.ParamByName('kfh').Value:=adoquery1['KFH'];
Parameters.ParamByName('rq').Value:=adoquery1['RQ'];
Parameters.ParamByName('dqrq').Value:=formatdatetime('',now);
open;
end;
stringgrid1.cells[0,i]:=adoquery2['XM'];
stringgrid1.cells[1,i]:=adoquery2['KFH'];
stringgrid1.cells[2,i]:=adoquery2['ZJHM'];
stringgrid1.cells[4,i]:=adoquery2['DJ'];
stringgrid1.cells[5,i]:=adoquery2['RZRQ'];
stringgrid1.cells[8,i]:=adoquery2['YFK'];
stringgrid1.cells[10,i]:=adoquery2['YJLD'];
stringgrid1.cells[11,i]:=adoquery2['BZ'];
adoquery1.Next;
end;
end;
end;
[解决办法]
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.sql.Add('select KFZT,KFH,RQ from KF where KFZT="是" order by KFH');
adoquery1.open;
应该在循环前，然后才是
for i:=1 to stringgrid1.RowCount do
begin
。。。。
