【搞定】我给任务索引数据集设置了分组，怎么不好用？**

zwjcooldd

我给“任务中心信息的任务索引数据集”设置了按照’任务类型“分组，怎么在任务中心，和计划中心中所引用的‘任务网格’没有显示这个分组 ？？
我自己做了个文档，使用了设置了分组的‘任务索引’数据集 ，就能看到分组。

lixy

任务索引数据集 在内部实现的时候，sql又重构了。

atiger

是因为 任务索引 这个数据集是代码赋SQL的，

在“业务模型\协同系统\任务\任务中心信息”的
procedure TTaskCenterInfo.InitTaskIndexDataSet;

所以你在这里设置分组看看

zwjcooldd

DataSetTaskIndex.Group.KeyFieldNames:= 'FTYPENAME';      还是没分出来啊?

lixy

//添加分组
  //DataSetTaskIndex.Group.KeyFieldNameList.Add( 'FTYPENAME');

zwjcooldd

我的方法为什么错了，原因？
我试过了，还是不行

lixy

看了那个属性的编辑界面，感觉应该是一个list。所以就用5楼的方法，其他的我也不太清楚，(*^__^*) 嘻嘻……

zwjcooldd

还是分不出来

lixy

我能了。看图。
看签入了没？

lixy

我的代码
procedure TTASKCENTERINFO.InitTaskIndexDataSet;
var
  I: Integer;
  lTaskFileds: string;
begin
  lTaskFileds := 'FTYPENAME, FPRIORITY, FSUBJECT, FFLOWGUID, FBizID, ' +
    'FSPERSON, FSPERSONNAME, FRPERSONNAMES, FSTARTTIME, FFINISHTIME, FLIMITTIME, ' +
    'FPARTYNAME, FPLANNAME, FPLAN, FPROJECTNAME, FPROJECT, FSOGNNAME, FSDEPTNAME, FSPOSITIONNAME, ' +
    'FSTATE, FLASTCHANGETIME, FCREATETIME, FPLANSTARTTIME, ' +
    'FPLANFINISHTIME, FDISTRIBUTETIME, TTASK.FPARTY, ' +
    // for task load
    'FGUID, FTYPE, FFUNCURL, FUPDATEFLAG, FPROCURL, FDESCRIPTION, FISANONYMITY ';
  if Assigned(FOnGetTaskFieldsEvent) then
    FOnGetTaskFieldsEvent(lTaskFileds);
//SMP Add In条件，20080808不应该显示子流程任务和控制任务等非处理类型的任务S
  DataSetTaskIndex.SQL.Text := SysUtils.Format('SELECT %s FROM TTASK ' +
    ' WHERE FGROUPGUID = ''-1'' AND (FKIND in (''ftkActivity'', ''ftkReturn'', ''ftkTransmit'', '
    +' ''ftkNotify'', '''', ''ftkHasten'') or FKIND IS NULL) ORDER BY FCREATETIME DESC', [lTaskFileds]);
  DataSetTaskIndex.Order := 'FCREATETIME desc';

  DataSetTaskIndex.FilterFields.Clear;
  for I := Low(BrowseFieldNames) to High(BrowseFieldNames) do
    DataSetTaskIndex.FilterFields.Add(BrowseFieldNames[I]);
  DataSetTaskIndex.FilterFields.Add('FBIZID');
  DataSetTaskIndex.FilterFields.Add('FNEEDPROCESS');
  //添加分组
  DataSetTaskIndex.Group.KeyFieldNameList.Add( 'FTYPENAME');
end;