起步软件技术论坛-X3

 找回密码
 立即注册
搜索
楼主: xhsoft

checkbiztreeview**

[复制链接]
 楼主| 发表于 2008-7-9 09:07:24 | 显示全部楼层
在哪加呀
回复 支持 反对

使用道具 举报

发表于 2008-7-9 09:29:35 | 显示全部楼层
比如窗体的Create方法可以,主要为了清掉他自带的memo,当然也可以自己在控件中去掉
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-9 11:42:32 | 显示全部楼层

j

还是出错
同一位置
回复 支持 反对

使用道具 举报

发表于 2008-7-9 11:53:18 | 显示全部楼层
我打包了,你用这个吧

checkbiztree.rar

10.19 KB, 下载次数: 61

回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-10 10:00:31 | 显示全部楼层
想把姓名也显示出来
Dialogs.ShowMessage(lBizNode.BizURL.URL);
回复 支持 反对

使用道具 举报

发表于 2008-7-10 10:08:41 | 显示全部楼层
Dialogs.ShowMessage(lBizNode.DisplayName);
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-7-10 10:12:19 | 显示全部楼层
谢谢,这是岗位名称
var
  lBizUrl: TBizURL;
  FGUID,wjbh: String;
  i: Integer;
  Org : TOrgSystem ;
  lBizNode: TBizNode;
begin
  wjbh := dataedit1.Text;
  lBizURl := TBizURL.Create;
  Org := TOrgSystem.Create;
  try
  Memo1.Lines.Clear;
  lBizURl.URL := 'Org:\ROOT\sccs.ogn';
  FGUID := CheckBizTreeView1.BizTree.FindNodeByBizURL(lBizURl).GUID;
  BizTree.BizTreeStructure.GetChildren(FGUID,Memo1.Lines,True);//,[TBizObjectKind.boOrgServer, TBizObjectKind.boOrgRoot,
  for i := 0 to Memo1.Lines.Count -1 do
  begin
    lbizNode := BizTree.BizTreeStructure.FindNode(Memo1.Lines) as TBizNode;
    if lbizNode.NodeKind = TBizObjectKind.boPositionMember then
    begin
      CheckBizTreeView1.SelectedNode := lBizNode;
      if CheckBizTreeView1.Checked[CheckBizTreeView1.Selected] then
      begin
       // Dialogs.ShowMessage(lBizNode.BizURL.URL);
员工姓名怎么取
回复 支持 反对

使用道具 举报

发表于 2008-7-10 10:41:53 | 显示全部楼层
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-18 23:48 , Processed in 0.042906 second(s), 16 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表