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

[JohnsonHome]

代码如下
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分了，解决了，全部拿去吧。。。。

[lzg827]

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

[bingyandong]

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

[JohnsonHome]

顶上去