怎么给数据清零？

[llh6795]

procedure TFrm_mssy_lr.cxButton2Click(Sender: TObject);
var
i,cout:integer;
begin
//新增
with zlby_qry do
begin
zlby_qry.Filter:='f_byl>0';
zlby_qry.Filtered:=true;
cout:=RecordCount;
edit;
first;
for i:=0 to cout-1 do
begin
edit;
FieldByName('f_byl').AsFloat:=0;
post;
next;
end;
zlby_qry.Filtered:=false;
edit;
end;
end;
子表有一列f_byl 数据参与计算，每次输入10个数据，计算完后，新增数据时清零，
，可以清零，但提示错误如下

请指点是什么原因？谢谢大家

[haitao]

过滤条件内 少了一条，count就不准了 最好从最后一条向上循环，不用for，而是while not bof do

[llh6795]

引用 1 楼 sz_haitao 的回复:

过滤条件内 少了一条，count就不准了 最好从最后一条向上循环，不用for，而是while not bof do

用DELPHI 不熟练，能详细说明吗？谢谢！

[s11ss]

把最后的edit删掉

[Liyp92]

同意楼上。LZ Edit用得有点多。一个就够了。 edit; FieldByName('f_byl').AsFloat:=0; post;

[llh6795]

引用 3 楼 s11ss 的回复:

把最后的edit删掉

错误提示不变

[llh6795]

引用 4 楼 u012072926 的回复:

同意楼上。LZ Edit用得有点多。一个就够了。 edit; FieldByName('f_byl').AsFloat:=0; post;

只用了一个edit 错误提示不变

[lyhoo163]

procedure TForm1.Button1Click(Sender: TObject);
begin
  with zlby_qry do
  begin
    Last;
    While Not Bof do
    begin
      edit;
      FieldByName('f_byl').AsFloat:=0;
      post;
      prior;
    end;
  end;
end;

[llh6795]

引用 7 楼 lyhoo163 的回复:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with zlby_qry do
  begin
    Last;
    While Not Bof do
    begin
      edit;
      FieldByName('f_byl').AsFloat:=0;
      post;
      prior;
    end;
  end;
end;

真的好了，非常感谢了，呵呵

[llh6795]

谢谢大家的帮助，下午上班了结贴，呵呵