起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 1148|回复: 33

急!!错误

[复制链接]
发表于 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;

121.jpg

33.61 KB, 下载次数: 267

回复

使用道具 举报

 楼主| 发表于 2010-3-12 22:45:20 | 显示全部楼层
已经没有这个人了,

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

报错的这句
回复 支持 反对

使用道具 举报

发表于 2010-3-13 11:14:57 | 显示全部楼层
没了这个人,肯定要报错。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-15 21:23:19 | 显示全部楼层
为什么,这个人不在公司了,怎么处理这个错误
回复 支持 反对

使用道具 举报

发表于 2010-3-16 08:43:41 | 显示全部楼层
我也碰到过这个问题,不知道是否和你的一样
我的做法是,到表里把不在的人员(如编号)改成存在的人员
回复 支持 反对

使用道具 举报

发表于 2010-3-16 10:02:10 | 显示全部楼层
你到组织机构系统表和人员表中找一下这个账户,如果有,删除这个记录吧。
记住备份一下系统数据库,再进行此操作
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-16 21:15:31 | 显示全部楼层
删除,问题依然存在,报一样的错误
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-17 19:56:16 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2010-3-18 11:25:45 | 显示全部楼层
是不是删除的不彻底啊?
要不你先找这个路径重建一下这几个节点,应该就不会报告错误,然后在彻底删除一下。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-3-18 12:12:01 | 显示全部楼层
重新建立过,还是报错的
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-10 05:43 , Processed in 0.042164 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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