使用嵌入的光设置还不行,应该在使用功能窗体的数据集的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\FFLAG.FIELD',
'Biz:\COLLABORATION\COLLABORATION.DATABASE\TDOCCATEGORY.Table\FGUID.FIELD'],
[DataSet.FieldByName('FGUID').AsString, '1'],True, TDocAccessKind.akAll);
end |