关于‘无法为更新定位行。一些值可能已在最后一次读取后已更改’问题的解决办法

var
  i: Integer;
  stream:Tmemorystream;
begin
  inherited;
  AdoConn.BeginTrans ;
  try
    if QryRemind.State in [dsInsert] then
      Qry1.Post
    else if Qry1.State in [dsEdit] then
    begin
      With Tadoquery.create(self) do
      begin
        Close;
        SQL.Text := Qry1.SQL.Text ;
        Open;
        Edit;
        For i:= 0 To Fields.Count -1 do
        begin
          if not Qry1.Fields[i].IsBlob then
          begin
            Fields[i].Value := Qry1.Fields[i].Value
          end
          else
          begin
            if Qry1.Fields[i].IsNull then
            begin
               TBlobField(Fields[i]).Clear ;
            end
            else
            begin
              stream:=tmemorystream.Create;
              Try