求救!!!在线急待。
代码如下:
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处时出现“缺少更新或刷新的键列信息”提示错误,请问是什么错误呀?谢谢!