[搞定][问题] 如何在删除信息的时候将关联的文档也同时删除？

roice

用户在删除公文信息或者终止流程时需要将关联的文档也删除，如何在删除公文信息或者终止流程的同时将关联的文档也删除？

xhsoft

在信息层做一下级联就可以吧

lixy

楼主看这个帖子，看7楼
http://bbs.justep.com/forum.php? ... 5%CE%F1%CA%FD%BE%DD

yancm

procedure TMainForm.Button1Click(Sender: TObject);
var docs: TStrings;
    i: integer;
begin

    docs:=TStringList.Create;
    try
      (DocView1.Doc as TRelevancyDoc).GetDocURLList(docs);
      for i:=0 to  docs.Count-1 do
      begin
        TDocSystem.DeleteFile(docs);
      end;
    finally
     docs.free;
    end;
    (DocView1.Doc as TRelevancyDoc).DataSet.First;
    while not (DocView1.Doc as TRelevancyDoc).DataSet.Eof
    do   (DocView1.Doc as TRelevancyDoc).DataSet.Delete;
    (DocView1.Doc as TRelevancyDoc).DataSet.ApplyUpdates;
end;

roice

谢谢，结贴。