组织机构树节点的定位问题**

wqh

我已知 一个组织机构或人员的FID

如何在一棵已经存在的组织机构树中定位到 本FID的节点。
即 组织机构树的节点定位问题。
谢谢。
急急！

wqh

ding

wqh

顶

yancm

OrgTreeView1.SelectedNode := BizTree.BizTreeStructure.FindNodeByBizURL()

wqh

我试了，不行啊。我问下，你试过没有。

tempDS:=TDataSet.Create(nil);
     try
       strSQL:='SELECT '+SysUtils.QuotedStr('ORG:')+'||FPATH||FFILENAME as ObjectID FROM TORGSYSTEM WHERE FID='+SysUtils.QuotedStr(SelectedValue);
       tempDS.Data:=TCOMMONLIBRARY.GetDataSetBySQL('DATABASEURL=Biz:\ECIS\ECISDB.Database',strSQL); //顶级节点
       if not tempDS.IsEmpty then
       begin
         SelectedObjectID:=SysUtils.UpperCase(tempDS.FieldByName('ObjectID').asString);
         Node:=OrgtView.BizTree.FindNodeByFullFileName(SelectedObjectID);// .FindNodeByID(SelectedObjectID) as TBizNode;
         if Node<>nil then
         begin
           OrgtView.SelectedNode :=Node;
         end;

       end;
     finally
       tempDS.Close ;
       tempDS.Free;
     end;

jiahaiminghr

试过了：
var
  lBizNode: TBizNode;
  lBizURL: TBizURL;
begin
  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := edit2.Text;  { 传机构节点的 URL }
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL); {找到用于表现用的节点}
    if lBizNode <> nil then
      begin
        OrgTreeView1.SelectedNode := lBizNode;
        OrgTreeView1.SetFocus;
      end;
  finally
    lBizURL.Free;
  end;
end;

yancm

看4楼

atiger

??

atiger

楼主，这个帖子我结了，有问题，请重新开帖