|

楼主 |
发表于 2009-7-9 16:11:52
|
显示全部楼层
我觉得你可能错了。 看下面的代码:otvDept是个Torgtreeview
procedure TFPZBRYCT.otvDeptChange(Sender: TObject; Node: TTreeNode);
var
lOrgDept: String;
lOrgPerson: String;
lOrgLeader: String;
lOrgURLs: TOrgURLs;
i: Integer;
lListItem: TListItem;
begin
lOrgDept := OrgExpr.OrgKey(otvDept.SelectedNode.BizURL.ID, '', '');
lOrgPerson := OrgExpr.OrgChildren(lOrgDept, OrgExpr.OrgCondition('*.psm', '', ''), True, False);
lOrgLeader := OrgExpr.OrgChildren('OrgManager(' + lOrgDept + ', '''', True)', OrgExpr.OrgCondition('*.psm', '', ''), True, True);
lOrgURLs := TOrgURLs.Create;
try
OrgSys.OrgSystem.GetOrgURLsByOrgExpr(lOrgPerson, lOrgURLs);
olvPerson.BizURLs.Clear;
for i:=0 to lOrgURLs.Count-1 do
olvPerson.BizURLs.Add(lOrgURLs.BizURL.URL);
olvPerson. LoadNodesByBizURLs;
// olvPerson.Reload;
finally
lOrgURLs.Free;
end;
end;
这段代码是可以执行的。并且有值。 |
|