【结贴】计划中心新增功能过滤出的计划怎样才能是树型的？**

qiezi

计划中心的计划树是采用的
“业务模型\协同系统\计划\计划中心信息\计划树形网格”文档吗？
我修改的是该文档的datasetbroker的数据集id

zfang

对，是那个网格。
不建议你去改它。最好是自己做一个。

qiezi

网格没有做任何的修改，只是修改了datasetbroker的数据集id，为什么只有一个字段？

zfang

不明白13楼的意思。

qiezi

业务模型\协同系统\面板功能\我的功能\我的计划
procedure TMYPLANDOC.tbTabChange(Sender: TObject; Index: Integer);
var
cur:TContextCurrent;
s:string;
//mydoc:TPLANTREELIST;
begin
//mydoc:=TPLANTREELIST.Create(Self.Context);
cur:=TContextCurrent.Create(Self.Context);
s:=cur.Operator.ID;
cur.Free;
  // 详细或者执行人页面
  if (FTabIndex = 1) or (FTabIndex = 2) then
  begin
    if Index = FTabIndex then exit;
    if not InfoPlan.PlanDataSaveQueryAndSave(FTabIndex = 1) then
    begin
      tbTab.Index := FTabIndex;
      SysUtils.Abort;
    end;
  end;
  pnlPlan.DisableAlign;
  try
    case Index of
      0:
        begin
          PlanTreeDoc.DataSetBrokerPlanData.DataSetID:='PlanData';
          ViewMode := TViewMode.vmPlanGrid;
          cnrHeader.Height:= tbTab.Height + 28;
        end;
      1:
        begin
          ViewMode := TViewMode.vmPlanDetail;
          cnrHeader.Height:= tbTab.Height + 28;
        end;
      2:
        begin
          ViewMode := TViewMode.vmPlanExcutors;
          cnrHeader.Height:= tbTab.Height + 28;
        end;
      3:
        begin
          cnrHeader.Height:= tbTab.Height;
          ViewMode := TViewMode.vmTaskGrid;
        end;
    [U]  4:
      begin
       PlanTreeDoc.DataSetBrokerPlanData.DataSetID:='childplan';
       DataSetBroker1.DataSet.Active:=false;
       DataSetBroker1.DataSet.Params.ParamByName('@personid').AsString:=s;
       DataSetBroker1.DataSet.Params.ParamByName('@timespan').AsString:='本月';
       DataSetBroker1.DataSet.Active:=true;
       ViewMode := TViewMode.vmPlanGrid;
       cnrHeader.Height:= tbTab.Height + 28;

      end;[/U]     end;
  finally
    pnlPlan.EnableAlign;
  end;
  FTabIndex := Index;
end;

qiezi

我修改的是数据源，至于数据的表现形式不一样，请问还有什么地方遗漏了吗？

zfang

楼主，你把你的需求说一下吧。

qiezi

需求已实现，谢谢，结贴！

zfang

分享一下吧，楼主。

qiezi

跟你给我的例子差不多。
思路就是：
1、存储过程查出子计划id;
2、getsqlfilter中修改条件。