【结贴】紧急问题：代码增加人员报错**

pingeo

X3版本：2800
代码写法：
try
    lBizURL.URL := 'Orgerson';

     while( not DataSetBroker1.DataSet.Eof) do
     begin
          UserID:=DataSetBroker1.DataSet.FieldByName('suID').AsString;
          UserName:=DataSetBroker1.DataSet.FieldByName('suName').AsString;
          lPerson := OrgSys.OrgSystem.FindPerson(UserID);
          if lPerson = nil then
          begin
               if jsDialogs.ConfirmBox('是否增加用户?'+#10+#13+'ID:'+UserID+'   用户名:'+UserName,'增加用户',1) then
               begin
                   OrgSys.OrgSystem.CreateUnit(lBizURL, UserID, TBizObjectKind.boPerson, UserName);
               end;
          end;
          DataSetBroker1.DataSet.Next;
    end;
  finally
    DataSetBroker2.DataSet.Refresh;
    lBizURL.Free;
  end;

lisb

没重现问题，这是我的代码
procedure TMainForm.Button1Click(Sender: TObject);
var
  lBizURL: TBizURL;
  UserID,UserName: string;
  lPerson: TorgUnit;
begin
  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := 'Org:\Person';
    UserID:='cs2';
    UserName:='测试2';
    lPerson := OrgSys.OrgSystem.FindPerson(UserID);
    if lPerson = nil then
    begin
      if jsDialogs.ConfirmBox('是否增加用户?'+#10+#13+'ID:'+UserID+'   用户名:'+UserName,'增加用户',1) then
      begin
        OrgSys.OrgSystem.CreateUnit(lBizURL, UserID, TBizObjectKind.boPerson, UserName);
      end;
    end;
  finally
    lBizURL.Free;
  end;
end;

pingeo

在开发环境没问题，在IE中执行有问题。

pingeo

在线等，谢谢！

lisb

用Business.exe登录执行有问题吗？

lisb

在你的代码前加一下这个贴中的2楼的代码看还有没有问题
http://bbs.justep.com/forum.php? ... nager.UseLocalCache

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。