按照《关联添加附件使用说明》写的啊,貌似没有问题吧。
4) 在DataSetBroker的AfterScroll事件中加下面这段代码
procedure TMainForm.DataSetBroker1AfterScroll(DataSet: TDataSet);
begin
(DocView1.Doc as TRelevancyDoc).FuncURL :='Biz:\TESTSPACE\YWGN2Func.Func';
(DocView1.Doc as TRelevancyDoc).Load('',
['Biz:\COLLABORATION\COLLABORATION.DATABASE\TDOCCATEGORY.Table\FGUID.FIELD'],
[DataSet.FieldByName('FGUID').AsString, '1'],True, TDocAccessKind.akAll);
end;
根据实际替换代码中红色部分:
“DocView1”替换在步骤1中添加的DocView的ID;
“Biz:\TESTSPACE\YWGN2Func.Func”替换为本功能的URL;
“'Biz:\COLLABORATION\COLLABORATION.DATABASE\TDOCCATEGORY.Table\FGUID.FIELD”替换为“文档关联定义”中设置的“关联业务表主键”的URL;
“FGUID”替换业务数据的主键ID。 |