200分解决问题，三层结构中，有些记录删除不掉，再次删除，还有些记录删除不掉，多次之后才删除掉。

[甜而不腻]

代码：
with form.clientdataset1 do begin
First;
while not eof do begin
Delete;
end;
for i:=1 to clbRite.Items.Count do begin
if clbRite.Checked[i-1] then begin
Append;
FieldByName('EMP').AsInteger:=clientdataset2.FieldByName('EMP').AsInteger;
FieldByName('RiteID').AsInteger:=StrToInt(RiteList[i-1]);
FieldByName('VALIDITY').AsString:='Y';
Post;
end;
end;
ApplyUpdates(-1);
end;
意图:
通过这个事件,删除原来旧记录,增加新记录,如果原来没有,就直接增加新记录,

出现现象:

经过跟踪 在ApplyUpdates(-1); 后提示:在clientdataset1ReconcileError事件中截获的错误提示:Record not found or changed by another user ,有些记录删除不掉,
这个ApplyUpdates(-1)错误主要是在delete 中产生的.

操作:多次执行以上代码,终于把所有符合条件的记录删除了.

其中：用到的表中已经有主键，

可能出现的错误地方：其中有一个字段类型：DATE ，还有一个字段有默认值：'N'

问题:1、如果说记录有问题,那么为什么再以后执行的时候就能删除呢?
2、如果说，在我提到的可能出现的错误地方 有错误，那么再执行的时候不会出错呢？

希望有人解决我的问题.

[抱朴守拙]

是否可以考虑将删除方法改为用SQL语句删除？

[zdq801104]

第一次出错以后也一样出错的以前我也出过这样的错误，删了几次删不掉，后来用SQL语句编写解决了，我想楼上的办法可以一试，反正这个SQL语句也很简单

[zdq801104]

不然你这样试试
while （not eof） and (not isempty) do begin
Delete;
end;

[janb]

楼主不妨这样试试：
with form.clientdataset1 do begin
First;
while not eof do begin
Delete;
end;
ApplyUpdates(-1)；
…………………………

[甜而不腻]

楼上这个方法我试过也不行，问题一样。不能解决。

[yj0785]

with form.clientdataset1 do begin
First;
while not eof do begin
Delete;
ApplyUpdates(-1);//把这个放在循环里边，试试看。以前我也遇到过，就这样解决了。
end;
for i:=1 to clbRite.Items.Count do begin
if clbRite.Checked[i-1] then begin
Append;
FieldByName('EMP').AsInteger:=clientdataset2.FieldByName('EMP').AsInteger;
FieldByName('RiteID').AsInteger:=StrToInt(RiteList[i-1]);
FieldByName('VALIDITY').AsString:='Y';
Post;
end;
end;
ApplyUpdates(-1);
end;

[dyzg]

对，应该删除后update一次，然后检查成功否，不成功再删除。在网络条件下这个问题从foxpro开始都有，我都是用循环删除在检查的方法确认的。

[qizhanfeng]

学习
三层

[cdsgajxlp]

学习三层

[zfang]

路过
学习

[甜而不腻]

问题已经解决 ，方法就是循环里边放ApplyUpdates(-1);谢谢！