急！！错误

xhsoft · 发表于 2010-3-12 22:43:23

procedure TXZFFFWCT.Action1Execute(Sender: TObject);
var
  lBizUrl: TBizURL;
  FGUID,lcbh,wjmc: String;
  i: Integer;
  Org : TOrgSystem ;
  lBizNode: TBizNode;
  bh,bh1,zw,dl,zl:string;
  ver :integer;
begin
  lBizURl := TBizURL.Create;
  Org := TOrgSystem.Create;
  try
  Memo1.Lines.Clear;
  lBizURl.URL := 'Org:ROOTsccs.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.boPersonMember then
begin
   CheckBizTreeView1.SelectedNode := lBizNode;
   if CheckBizTreeView1.Checked[CheckBizTreeView1.Selected] then
   begin
      Dsb_Detail.DataSet.Open;
      Dsb_Detail.DataSet.Append;
      Dsb_Detail.DataSet.FieldByName('FDept').AsString := lbiznode.Parent.Parent.DisplayName;
      Dsb_Detail.DataSet.FieldByName('FPost').AsString := lbiznode.Parent.DisplayName;
      Dsb_Detail.DataSet.FieldByName('FPer').AsString := lbiznode.DisplayName;
      Dsb_Detail.DataSet.Post;
   end;
end;
  end;
  finally
lBizURl.Free;
Org.Free;
Business.Forms.jsDialogs.ShowMsg('操作成功!','系统提示');
Dsb_Detail.dataset.Open;
  end;
  close;

end;

xhsoft · 发表于 2010-3-12 22:45:20

已经没有这个人了，

部门重建的，也是错
BizTree.BizTreeStructure.GetChildren(FGUID,Memo1.Lines,True);//

报错的这句

lixy · 发表于 2010-3-13 11:14:57

没了这个人，肯定要报错。

xhsoft · 发表于 2010-3-15 21:23:19

为什么，这个人不在公司了，怎么处理这个错误

aboy · 发表于 2010-3-16 08:43:41

我也碰到过这个问题，不知道是否和你的一样
我的做法是，到表里把不在的人员（如编号）改成存在的人员

atiger · 发表于 2010-3-16 10:02:10

你到组织机构系统表和人员表中找一下这个账户，如果有，删除这个记录吧。
记住备份一下系统数据库，再进行此操作

xhsoft · 发表于 2010-3-16 21:15:31

删除，问题依然存在，报一样的错误

xhsoft · 发表于 2010-3-17 19:56:16

shangxy · 发表于 2010-3-18 11:25:45

是不是删除的不彻底啊？
要不你先找这个路径重建一下这几个节点，应该就不会报告错误，然后在彻底删除一下。

xhsoft · 发表于 2010-3-18 12:12:01

重新建立过，还是报错的

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