|

楼主 |
发表于 2009-9-18 18:06:39
|
显示全部楼层
不知道你的那句加在什么地方,我的加在业务模型\系统空间\用户界面基础\界面库\系统接口\选择组织单元对话框
FUserOrgTreeView.ReloadTree;
FUserOrgTreeView.ShowOptions := [TOrgUnitKind.boFolder, TOrgUnitKind.boOrgServer,TOrgUnitKind.boWorkGroupMember] + lKinds; //加这里了
调试时 [Business.Model.TBizObjectKinds.boFolder, Business.Model.TBizObjectKinds.boOrgServer, Business.Model.TBizObjectKinds.boOrgRoot, Business.Model.TBizObjectKinds.boPersonRoot, Business.Model.TBizObjectKinds.boWorkGroup] |
|