【结贴】流程回退保留记录**

wulei_doudou_1

昨天晚上想了一晚上也觉得不太合适，我一开始试的时候是在窗体的OnCreate事件里试的，成功后就突然想说在流程的事件里试，走弯路了，我再想想吧，有问题会继续回馈的。谢谢了，以后还得您多多帮助

lisb

好的，有问题有结果跟帖。

wulei_doudou_1

我现在做了个按钮，来调用那个窗体，怎么还是报错？奇怪了，那天试还好好的

yancm

报什么错？您按钮里面的代码看一下。

wulei_doudou_1

按钮里的代码：
procedure TCSHTHBZCT.BitBtn1Click(Sender: TObject);
var
  lCSHTCT: CSHTXX.TCXLSJLCT;
begin
  lCSHTCT := CSHTXX.TCXLSJLCT.Create(context);
  try
     lCSHTCT.ShowModal;
  finally
   lCSHTCT.Free;
  end;
end;

wulei_doudou_1

窗体里的代码：
procedure TCXLSJLCT.BizFormCreate(Sender: TObject);
var
  myinfo: TInfoBroker;
  dv: TDocView;
  tab: TTabSheet;
begin
  myinfo := TInfoBroker.Create(Self);
  myinfo.AutoBroker := True;
  myinfo.AutoKind := TAutoKind.akPrivate;
  myInfo.FuncBroker := FuncBroker1;
  myInfo.BizClassRef.BizURL.URL := 'Biz:\LFRDGC\CSHTXX.Info';
  dialogs.showmessage(SysUtils.IntToStr(PageControl1.PageCount));
  tab := TTabSheet.Create(PageControl1);
  tab.Parent := PageControl1;
  tab.Caption := '回退';
  tab.PageControl := PageControl1;
  dialogs.showmessage(SysUtils.IntToStr(PageControl1.PageCount));
  dv := TDocView.Create(Self);
  dv.InfoBroker := myInfo;
  dv.DocClassID := 'CSHTBG.SheetDoc';
  dv.Parent := tab;
  dv.Align := TAlign.alClient;
  myInfo.Info.DataSetByID('BZSJJ1').Locate('BH', InfoBroker1.Info.DataSetByID('BZSJJ1').FieldByName('BH').AsString, []);
  PageControl1.ActivePage := tab;
end;

lisb

报什么错？错误停在哪里？

wulei_doudou_1

这个是报的错误：

wulei_doudou_1

这个是报错的地方：

lisb

你把代码放到窗体的OnShow事件里试试。