三层中的主细表问题。delphi5+db2 7.1

[jiezhi]

在三层结构中的主细表，我想用户选择了单据后自动插入明细，如果已经有了明细则先删除，代码如下：
procedure TFRM_DBCK.CDS_DBCKAfterPost(DataSet: TDataSet);
begin
//如果单据编号不为空，则根据该调拨申请单自动生成明细
if CDS_DBCK.FieldByName('djbh').AsString <> '' then
begin
with cds_temp do
begin

//如果有明细,则删除所有明细
if CDS_CKDMX.RecordCount > 0 then
begin
Close;
CommandText := 'delete from t_ckdmx where ckdid=''' + CDS_DBCK.FieldByName('ckdid').AsString + '''';
Execute;
end;

Close;
CommandText := 'select * from t_ckdmx'
+ ' where ckdid=''' + CDS_DBCK.FieldByName('djbh').AsString + '''';
Open;
First;
while not Eof do
begin
CDS_CKDMX.Insert;
CDS_CKDMX.FieldByName('wlbh').AsString := fieldbyname('wlbh').AsString;
CDS_CKDMX.FieldByName('pub_sx').AsString := fieldbyname('pub_sx').AsString;
CDS_CKDMX.FieldByName('thsl').AsFloat := fieldbyname('thsl').AsFloat;
CDS_CKDMX.FieldByName('sfsl').AsFloat := fieldbyname('sfsl').AsFloat;
CDS_CKDMX.FieldByName('jldw').AsString := fieldbyname('jldw').AsString;
CDS_CKDMX.FieldByName('zhgx').AsFloat := fieldbyname('zhgx').AsFloat;
CDS_DBCK.ApplyUpdates(0);
Next;
end;
end;
end;
end;
但对同一主记录反复选单据的过程中，明细在不断的增加，而跟踪时发现delete也执行了，这是怎么回事？请大家指点。

[jiezhi]

怎么没有人回答啊？？？

[bluemeteor]

你的意思是明细没有删除而是递增了是么？

看看where ckdid=''' + CDS_DBCK.FieldByName('ckdid').AsString + ''''

这个条件和你数据表里的相符么？你的程序我看不出错误来，我想还是SQL语言的问题吧：）

[weitao999]

呵呵，楼上说的对！
应是
CommandText := 'delete from t_ckdmx where ckdid=''' + CDS_DBCK.FieldByName('djbh//而非ckdid吧').AsString + '''';

[jiezhi]

我是想删除当前主表记录的明细记录，所以肯定是
'delete from t_ckdmx where ckdid='''+CDS_DBCK.FieldByName(ckdid).asstring+'''';

[weitao999]

自己仔细跟踪吧！

[jiezhi]

up

[jiezhi]

我的删除语句没有问题。
我也仔细跟踪了，但发现虽然执行了delete的sql语句，但记录并没有删除。
大侠点拨一下吧！

[jiezhi]

cg1120怎么不来看看

[NiuNiuTZ]

up

[jiezhi]

大家怎么不回答呢？