无法更新 当前被锁定 是怎么回事？

Question

代码如下
   if (xlyg='老员工') and (s16='是') then
    begin
      k:=strtoint(s14) div 3;
      with Adoq4 do
      begin
        edit;
        FieldByName('SendCyc').AsString:=inttostr(strtoint(s14)-k);
        FieldByName('IsSend').AsString:='否';
        post;
      end;
      with Adoq4 do
      begin
        edit;
        FieldByName('sendtime').AsString:=Adoq4.FieldByName('Nsendtime').AsString;
        FieldByName('Nsendtime').AsString:=DT(Adoq4,'SendCyc');
        post;
      end;
    end;
    if (xlyg='老员工') and (s16<>'是') then
    begin
      with Adoq4 do
      begin
        edit;
        FieldByName('SendCyc').AsString:=Adoq4.FieldByName('SendCyc').AsString;
        FieldByName('SendTime').AsString:=Adoq4.FieldByName('NSendTime').AsString;
        FieldByName('NSendTime').AsString:=DT(Adoq4,'SendCyc');
        post;
      end;
    end;
如果把这里注释掉，就没问题了
各位兄弟 我一共20分了，解决了，全部拿去吧。

Answer 1

Adoq4 是不是adoquery 或者类似控件?
你要修改表中的数据,建议不要这样些
直接写update语句
      with Adoq4 do
      begin
        edit;
         ....
        post;
      end;
连续两个,当然被锁定了

Answer 2

把Adoq4.Post改为
Adoq4.Refresh试一下。