请问,引起"多步操作产生错误,请检查每一步的状态值"错误的原因?

Question

代码:function TDB.Add(vP:string):boolean;
var l_Sql:string;
begin
  result := false;
  l_Sql := 'select * from A';
  try
    rs.Active := False;
    rs.ComandText := l_Sql;
    rs.Open;
    rs.Append;
    rs.FieldValues['A'] := vP;
    rs.Post;
    rs.Active := False;
  except
  end;
end;在循环中调用函数Add后,有时会产生
"多步操作产生错误,请检查每一步的状态值"

Answer 1

因为你的数据库表中又默认值，而有默认值的字段在窗体上为一dbedit控件或其它控件连着
你在rs的OnNewRecord事件里加上：
rs.FieldBYName('有默认值的字段名').AsSting:='*****';
搞定！

Answer 2

qingenerp(真爱不息) 说的对
直接用sql语句实现也可以避免这个错误