【结贴】求助:两个窗体共同继承同一个业务信息问题**

Crazy_wen2006

这段代码一加上去就报如上错误，不加编译正常
procedure TSWF.ToolButton10Click(Sender: TObject);
begin
    showYJ();
end;

procedure TSWF.showYJ();
var
   showBJCLYJ : XYPSYY.TMainForm ;
  bFind: Boolean;

begin
     strLCTaskGUID := FlowBroker1.flowcontrol.CurrentTask.GUID;
     strLCNodeDisplayName := FlowBroker1.FlowControl.CurrentProcUnit.DisplayName;
     showBJCLYJ := XYPSYY.TMainForm.Create(Self.Context);
     try
        bFind := dsbSWYJ.DataSet.Locate('FWYJGUID', IFHaveYJ, []);
        if bFind then
        begin
            showBJCLYJ.RichEdit1.Text := dsbSWYJ.DataSet.FieldByName('YJ').AsString;
        end;
        showBJCLYJ.ShowModal;
        if showBJCLYJ.ModalResult = Business.Forms.Controls.mrOk then
        begin
          if bFind then
           dsbSWYJ.DataSet.edit
         else
           dsbSWYJ.DataSet.Append;
           dsbSWYJ.DataSet.FieldByName('YJ').AsString := showBJCLYJ.RichEdit1.Text;
           dsbSWYJ.DataSet.FieldByName('LCHJID').AsString := strLCTaskGUID;
           dsbSWYJ.DataSet.FieldByName('LCHJMC').AsString := strLCNodeDisplayName;
           dsbSWYJ.DataSet.ApplyUpdates(false);
           DocView1.Doc.Close;
           DocView1.OpenView(TDocMode.dmEdit);
        end;
     finally
            showBJCLYJ.Free;
            dsbSWYJ.DataSet.Filter :='';
             dsbSWYJ.DataSet.Filtered := true ;
     end;
end;

shangxy

楼主贴一个业务功能树的图，然后吧各个单元之间的关系详细说明一下。

lixy

那你就发资源吧。干看代码啥也看不出来。

Crazy_wen2006

问题已解决，在项目管理中没有引用，谢谢