【搞定】急！如何有代码刷新工作台的任务列表？**

dragonsoft

这是对象浏览器截图：

alang

那就是对的啊，你是在Studio中直接调试运行这个功能，还是从初始化运行的？

dragonsoft

studio直接调试运行又不会出现工作台

我是在studio中初始化运行的

alang

怎么会有两个信息呢？
那你改一下
const
  cDesktopURL = 'Biz:\COLLABORATION\DesktopFunc.Func';
  cTaskCenterURL = 'Biz:\COLLABORATION\TASKCENTERINFO.INFO';
var
  lBizObject: TBizObject;
  i: Integer;
  lContext: TContext;
begin
  lContext := Context.FindParentContext(BizSys.IL_PERSON);    //人员环境
  //在人员环境找工作台功能
  for i:=0 to lContext.ChildCount-1 do
  try
    if SysUtils.SameText(cDesktopURL, (lContext.Children.Owner as TFunc).BizClassURL.BizURL.URL) then
      lBizObject := lContext.Children.Owner;
  except
  end;
  if lBizObject=nil then exit;
  //在工作台功能上找任务中心信息
  lContext := lBizObject.Context;
  for i:=0 to lContext.ChildCount-1 do
  try
    if SysUtils.SameText(cTaskCenterURL, (lContext.Children.Owner as TInfo).BizClassURL.BizURL.URL) then
    begin
      lBizObject := lContext.Children.Owner;
    //刷新数据集
      if (lBizObject as TInfo).DataSetByID('TaskIndex').Active then
    (lBizObject as TInfo).DataSetByID('TaskIndex').Refresh;
    end;
  except
  end;

dragonsoft

谢谢
8楼代码是可行的。
原来不行的原因是： 工作台上有2个infobroker都关联到任务信息(11楼图片)。好像有一个没设置自动代理。
而代码读到了没自动代理的那个业务信息。 所以把其中的一个代理去掉就好了。

可以结帖了。

dragonsoft

o 好巧...  原来alang已经答复了，刚才都没看到。