心
心动痕迹
Unregistered / Unconfirmed
GUEST, unregistred user!
with table6 do
begin
disablecontrols;
first;
while not table6.eof do
begin
with table7 do
begin
disablecontrols;
first;
while not table7.eof do
begin
if (fieldbyname('s_no').asstring=table6.FieldByName('s_no').asstring)
and(table6.fieldbyname('biaozhi').value=true) then
begin
open;
edit;
delete;
end;
table7.next;
end;
table7.enablecontrols;
end;
table6.next;
end;
table6.enablecontrols;
end;
就是上面的代码,比如在table7中明明已经有连续的四条记录都符合条件,应该都将其
删除 ,可是却只是删除了其中的两条,并且还是相隔的,很明显的跳记录,为什么会这样呢?
table6中的索引是s_no,table7中设置了双索引s_no&c_no.
begin
disablecontrols;
first;
while not table6.eof do
begin
with table7 do
begin
disablecontrols;
first;
while not table7.eof do
begin
if (fieldbyname('s_no').asstring=table6.FieldByName('s_no').asstring)
and(table6.fieldbyname('biaozhi').value=true) then
begin
open;
edit;
delete;
end;
table7.next;
end;
table7.enablecontrols;
end;
table6.next;
end;
table6.enablecontrols;
end;
就是上面的代码,比如在table7中明明已经有连续的四条记录都符合条件,应该都将其
删除 ,可是却只是删除了其中的两条,并且还是相隔的,很明显的跳记录,为什么会这样呢?
table6中的索引是s_no,table7中设置了双索引s_no&c_no.