【结贴】怎么通过ID转换为部门名称？

op+

问题：
[B]1、怎么通过ID转换为部门名称？
2、TCheckBizTreeView不显示岗位以下。只显示出部门[/B] VAR
  lBizNode: TBizNode;
  lCondition: string;
  lurls: TStrings;
  i: integer;
  lBizUrl: TBizUrl;
  str: String;
begin
   DataEdit5.Text:='';
   lurls := TStringList.create;
   lBizUrl := TBizUrl.Create;
   try
     lCondition := org.OrgExpr.orgselect(org.OrgExpr.OrgCondition('*.dpt', '', ''));
     Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(lcondition,lurls);
     str := '';
     for i := 0 to lurls.count - 1 do
     begin
       lBizUrl.URL := lurls;
       lBizNode := cbtvDept.BizTree.FindNodeByBizURL(lBizUrl);
       cbtvDept.SelectedNode := lBizNode;
       if cbtvDept.Checked[cbtvDept.Selected] = True then
       begin
          str := str + lBizUrl.ID + '，';
       end;
     end;
     DataEdit5.Text:=str.Substring(0, str.Length - 1);
  finally
    lurls.Free;
    lBizUrl.Free;
  end;
  DataSetBroker1.DataSet.ApplyUpdates();
  jsdialogs.ShowMsg('保存成功','提示');
end;

如下图

zfang

1、http://bbs.justep.com/forum.php?mod=viewthread&tid=4584
2、你想要什么样呢？

op+

就是像1楼图上的一样啊，，只是在部门前面的+号不要显示出来，就显示到部门而已

zfang

+号点开有内容么？

op+

+号点开有内容么？

+号点开就是部门下面的岗位，岗位点开就是下面的人员，我不想要岗位和人员显示出来，不想要后2者出现！

zfang

控制 它的 showoptions

op+

OK.。。结贴，谢谢了~~