【搞定】如何用OrgTreeView只取组织机构特定部门的岗位和人员**

huanghui

procedure TMainForm.OrgTreeView1Change(Sender: TObject; Node: TTreeNode);
var
  lBuf: string;
  lID: string;
  lName: string;
  lKind: string;
  lBizURL: TBizURL;
  lOrgUnit: TOrgUnit;
begin

  lBizURL := TBizURL.Create;
  lBizURL.URL := TOrgNode(OrgTreeView1.Selected.Data).ObjectID;

  lOrgUnit := OrgSys.OrgSystem.GetUnit(lBizURL);
  lID := lOrgUnit.ID;
  lName := lOrgUnit.DisplayName;

  case TBizObjectKind(lOrgUnit.OrgKind) of
    Business.Model.TBizObjectKind.boOrgRoot: lKind := '根';
    Business.Model.TBizObjectKind.boOrgan: lKind := '机构';
    Business.Model.TBizObjectKind.boDept: lKind := '部门';
    Business.Model.TBizObjectKind.boPositionMember: lKind := '岗位';
    Business.Model.TBizObjectKind.boPersonMember: lKind := '人员';
  else
    lKind := '(未知:' + TOrgNode(OrgTreeView1.Selected.Data).ObjectKind + ')';
  end;

  lBizURL.Free;

  lBuf := lKind + #13 + #10 + lID + #13 + #10 + lName;
  memo1.SetTextBuf(lBuf);

end;
目前已经能取组织机构全部部门下的岗位和人员，但~
例如目前有A 和B两个部门，我怎样过滤当A部门的人员进来后，只显示A部门的岗位和人员？

jiahaiminghr

var
  lContextCurrent: TContextCurrent;
  lOrgUnit: TOrgUnit;
  lBizNode: TBizNode;
  lBizNodes: TStrings;
begin
  lContextCurrent := TContextCurrent.Create(Context);
  lBizNodes := TStringList.Create;
  try
    lOrgUnit := lContextCurrent.Dept;
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lOrgUnit.BizURL);
    if Assigned(lBizNode) then
      lBizNodes.AddObject(lBizNode.GUID, lBizNode);
    otv.StartWithNodes := lBizNodes; //otv是OrgTreeView控件
    otv.ReloadTree;
  finally
    lContextCurrent.Free;
    lBizNodes.Free;
  end;
end;

jiahaiminghr

楼主，还有问题吗？
没有就结贴了。