|
发表于 2008-9-10 14:55:36
|
显示全部楼层
修改一下楼上的代码,试试:
function TMAINFORM.RefreshDocRelevancyBar(Sender: TObject): TDocRelevancyArray;
var
I, J, lArrLen: Integer;
lBizDatas: TTaskBizDataList;
lBizFields, lValues: array of string;
lRelevancyDoc: TDocRelevancyArray;
begin
Result := [];
lBizFields := [];
lValues := [];
//修改这个判断条件
if (DocRelevancyNavBar = nil) or (MyTaskDoc.InfoTask.Task = nil) or
(MyTaskDoc.InfoTask.Task.FuncURL = '') then
Exit;
//加载任务关联的业务所关联的文档,与任务自身累加
lBizDatas := MyTaskDoc.InfoTask.Task.BizDatas; |
|