求救！！！


代码如下：
with adoquery1 do
                 begin
                   adoquery1.Close;
                   adoquery1.Parameters.ParamByName('itemcode').Value:=ypdm;
                   adoquery1.Parameters.ParamByName('DEPT').Value:=dept;
                   adoquery1.Parameters.ParamByName('date1').Value:=StartDate;
                   adoquery1.Parameters.ParamByName('date2').Value:=EndDate;
                   adoquery1.Open;
                   
                 end;
                   adoquery1.First;
                   
                   while not adoquery1.Eof  DO //B
                      begin
                        adoquery1.edit;
                        adoquery1.FieldByName('EXEUFLAG').Value := '0';
                        adoquery1.FieldByName('EXEUDEPT').Value := '0102204003';
                        adoquery1.FieldByName('EXEUOPERATOR').Value := Trim(edit1.Text);
                        adoquery1.FieldByName('EXEUDATE').Value := now;
                        //adoquery1.Post;
                        adoquery1.Next;
                      end;当运行到B处时出现“缺少更新或刷新的键列信息”提示错误，请问是什么错误呀？谢谢！