|
通过orgTreeView 获取人员的ID,可以通过
var
lNode : TBizNode;
begin
lNode := TBizNode(OrgTreeView1.SelectedNode);
if sysutils.LowerCase(StrUtils.RightStr(lnode.ID,3))=sysutils.LowerCase(lselkind) then
begin
if edtselected.Text='' then
begin
edtselected.Text:=lNode.DisplayName;
//只需要编号,去掉了后四位
edtselectedID.Text:=StrUtils.LeftStr(lnode.ID,length(lnode.ID)-4);
//edtselected.Text:=StringUtils.Copy(lnode.ID,0,length(lnode.ID)-4)
end
else
begin
if StringUtils.pos(lNode.DisplayName,edtselected.Text)=0 then //不能重复选取
edtselected.Text:=edtselected.Text+';'+lNode.DisplayName;
edtselectedID.Text:=edtselectedID.Text+';'+StrUtils.LeftStr(lnode.ID,length(lnode.ID)-4);
end;
end;
end;
来获得,但是,获取扩展字段,怎么办呢? |
|