请问如何实现同时删除动作?
下面程式码无法实现数据删除动作,但执行没有产生错误提示,请问如何才正确?
==================================================================

procedure TForm6.SpeedButton4Click(Sender: TObject);
var
i:INTEGER;
begin
if messagedlg('你确定记录为[' DataModule2.JSYZLB.FieldByName('JSYXM').AsString
']需要删除？',mtinformation,[mbyes,mbno],0)=mryes then
begin
DeleteFile(ExtractFilePath(Application.ExeName)
DataModule2.JSYZLB.FieldByName('JSYZP').AsString);//删除照片文件

//删除资料表3的相应资料
IF DataModule2.YWZZLB.FieldByName('YWID').AsString=DataModule2.JSYZLB.FieldByName('HYID').AsString Then
begin
DataModule2.YWZZLB.Active:=TRUE;
for i:=1 to DataModule2.YWZZLB.RecordCount do
DataModule2.YWZZLB.delete;
end;

//删除资料表2 的相应资料
IF DataModule2.YWMXZLB.FieldByName('YWID').AsString=DataModule2.JSYZLB.FieldByName('HYID').AsString Then
begin
DataModule2.YWMXZLB.Active:=TRUE;
for i:=1 to DataModule2.YWMXZLB.RecordCount do
DataModule2.YWMXZLB.delete;
end;

//删除资料表1 的相应资料
DataModule2.JSYZLB.Delete;
end;
end;

編輯記錄

DataModule2.YWZZLB.Active:=TRUE; //這行搬到前面看看,還沒開啟怎麼做下面的比對動作呢?
删除资料表2 的相应资料改法一樣
IF DataModule2.YWZZLB.FieldByName('YWID').AsString=DataModule2.JSYZLB.FieldByName('HYID').AsString Then
begin
for i:=1 to DataModule2.YWZZLB.RecordCount do
DataModule2.YWZZLB.delete;
end;

您好,尝试改变位置,但仍然没有执行动作.
资料表内的资料没有同时删除.

再將原本的
for i:=1 to DataModule2.YWZZLB.RecordCount do
DataModule2.YWZZLB.delete;

改成這樣呢
DataModule2.YWZZLB.First;
While not DataModule2.YWZZLB.eof then
begin
DataModule2.YWZZLB.delete;
end;

另外用單步偵錯模式看看程式是否有進入
IF DataModule2.YWZZLB.FieldByName('YWID').AsString=DataModule2.JSYZLB.FieldByName('HYID').AsString Then
...
裡面有執行到哪邊

前面的active還是要搬過去前面

編輯記錄

您好,程式码无法执行,

DataModule2.YWZZLB.First;
While not DataModule2.YWZZLB.eof then

不好意思因為現在手邊沒有delphi是直接打上去的打錯了

While not DataModule2.YWZZLB.eof do

===================引 用 BIG-ROM 文 章===================
您好,程式码无法执行,

DataModule2.YWZZLB.First;
While not DataModule2.YWZZLB.eof then

darnell 感谢你的热心帮助!

经过逐步跟踪的方法,确实是有一资料表没有连接上,现在解决问题了,具体情况如下:

========================================

procedure TForm6.SpeedButton4Click(Sender: TObject);
var
i:INTEGER;
begin
if messagedlg('你确定记录为[' DataModule2.JSYZLB.FieldByName('JSYXM').AsString
']需要删除？',mtinformation,[mbyes,mbno],0)=mryes then

BEGIN

DeleteFile(ExtractFilePath(Application.ExeName)
DataModule2.JSYZLB.FieldByName('JSYZP').AsString);//删除文件

//删除表3的相应资料
DataModule2.YWMXZLB2.Close;
DataModule2.YWMXZLB2.SQL.Clear;
DataModule2.YWMXZLB2.SQL.Add('Select * from YWMXZLB Where YWID="' DataModule2.JSYZLB.FieldByName('HYID').AsString '"ORDER BY ID DESC');
DataModule2.YWMXZLB2.Open;
IF DataModule2.YWMXZLB2.FieldByName('YWID').AsString=DataModule2.JSYZLB.FieldByName('HYID').AsString Then
begin
for i:=1 to DataModule2.YWMXZLB2.RecordCount do
DataModule2.YWMXZLB2.delete;
end;

//删除表2相应资料
DataModule2.YWZZLB2.Close;
DataModule2.YWZZLB2.SQL.Clear;
DataModule2.YWZZLB2.SQL.Add('Select * from YWZZLB Where YWID="' DataModule2.JSYZLB.FieldByName('HYID').AsString '"ORDER BY ID DESC');
DataModule2.YWZZLB2.Open;
IF DataModule2.YWZZLB2.FieldByName('YWID').AsString=DataModule2.JSYZLB.FieldByName('HYID').AsString Then
begin
for i:=1 to DataModule2.YWZZLB2.RecordCount do
DataModule2.YWZZLB2.delete;
end;

//删除表1相应资料
DataModule2.JSYZLB.Delete;

END;

end;

=======================================================

这样问题就完满解决了.