|

楼主 |
发表于 2009-7-9 21:26:24
|
显示全部楼层
我搜了搜,
然后在我的程序中写了这么一段:
procedure TMainForm.BizFormCreate(Sender: TObject);
var
lURL: TBizURL;
lNode: TBizNode;
begin
lURL := TBizURL.Create;
try
OrgComboBox1.BizTreeView.StartWithNodes.Clear;
lURL.URL := 'Org:\ROOT\SCSGAT.ogn';
lNode := OrgComboBox1.BizTreeView.BizTree.FindNodeByBizURL(lURL);
OrgComboBox1.BizTreeView.StartWithNodes.AddObject(lNode.GUID, lNode);
OrgComboBox1.SelectedOptions :=[TBizObjectKind.boOrgRoot, TBizObjectKind.boOrgan, TBizObjectKind.boDept];
OrgComboBox1.BizTreeView.ReloadTree;
finally
lURL.Free;
end;
end;
怎么我的orgcombobox1,还是能选到人员呢?
我只要选到部门就行了,而且最好是岗位和人员都不显示。 |
|