【搞定】[请求]通过子部门找到其上面上级部门如何实现（另关于部门的扩展信息的问题）

bzlhfh213 · 发表于 2007-7-2 16:20:13

我现在的想法是这样：已知一部门的ID，我要通过该部门ID取得其上级部门的一个扩展信息字段（假设上级部门表中的扩展字段名为A），如果该上级部门中的扩展字段A有值，则将该字段A的值赋值给另一张表里的字段B。

－－－－－－－－－－－－－－
以上过程希望能用函数的形式表示，望给个示例！

lisb · 发表于 2007-7-2 16:41:50

procedure TMainForm.Button1Click(Sender: TObject);
var
  lOrgUnit: TOrgUnit;
  ls: string;
begin
  lOrgUnit := org.OrgSys.OrgSystem.GetUnit('部门ID','','');
  ls := lOrgUnit.Parent.Attribute.ValuesAsString['EA']; //部门表、岗位表、人员表中的扩展字段都要以大写E开头
end;

bzlhfh213 · 发表于 2007-7-2 17:00:11

谢谢，楼上的回答。我试试！

bzlhfh213 · 发表于 2007-7-2 17:46:09

最初由 lisb 发布
[B]procedure TMainForm.Button1Click(Sender: TObject);
var
  lOrgUnit: TOrgUnit;
  ls: string;
begin
  lOrgUnit := org.OrgSys.OrgSystem.GetUnit('部门ID','','')..

以下省略...... [/B]

请问是要引用那个类库？

lisb · 发表于 2007-7-2 18:09:54

不需要引用，在uses处加上Business.Model.org

lisb · 发表于 2007-7-3 14:23:31

？？

zfang · 发表于 2007-7-4 17:55:29

搞定了吗，楼主？

zfang · 发表于 2007-7-6 09:03:09

由于楼主长期未反馈，先结帖！
有问题请重新开帖！

		自动登录	找回密码
密码			立即注册