另外我在删除按钮的beforeaction方法中加了个几句,大概意思是改变业务主表中用于文档关联的字段的值。目的是让系统在我删除业务主表中记录时不删除附件。但没有凑效。代码附在下面。请问是什么原因,系统还是把我的附件删了,其中在程序运行时跟踪了一下,文档关联的字段FCONTRACTID的值的确变了。
谢谢,代码如下,
procedure TBIZDETAILFORMDOC.DataNavigatorBeforeAction(Sender: TObject; var Accept: Boolean);
var lFid: String;
begin
if TBizDataSetAction(Sender).ID = BizActnConsts.ActionDataSetDelete then
begin
if (dsbBizMain.DataSet.FieldByName('fstate').AsString = 'bsEditing')then
begin
lFid := dsbBizMain.DataSet.FieldByName('FID').AsString ;