数据库 一对多删除
[code=Delphi(Pascal)][/code]
Close;
SQL.Clear;
SQL.Text := 'SELECT ID AS ID FROM Piece WHERE Produce =' + IntToStr(PID);
Open;
First;
while not QryYS.Eof do //只能执行一次 不能循环
begin
PIID := FieldByName('ID').AsInteger;
Next;
if PIID > 0 then
begin
Close;
SQL.Clear;
SQL.Text := 'DELETE FROM Dosage WHERE Piece =' + IntToStr(PIID);
ExecSQL;
end;
end;

[解决办法]
执行两个sql，要用两个query；
否则第二个执行sql语句，第一个就被动变成第二个的结果了
[解决办法]
原因分析：

Delphi(Pascal) code

  Close;  SQL.Clear;  SQL.Text := 'SELECT ID AS ID FROM Piece WHERE Produce =' + IntToStr(PID);  Open;  First;  while not QryYS.Eof do //这里以未到记录尽头为条件进行循环  begin    PIID := FieldByName('ID').AsInteger;    Next;    if PIID > 0 then    begin      //像楼上朋友所说，这里应该使用另外一个数据集！！      Close;      SQL.Clear;      SQL.Text := 'DELETE FROM Dosage WHERE Piece =' + IntToStr(PIID);      ExecSQL;//这句没有记录返回，从而造成循环条件不再成立！    end;  end;