【结贴】创建业务数据集必须传入有效的 AOwner 参数**

loworth

在窗体里初始化TUserDataSet

DataSet:=TUserDataSet.Create(nil);


create的参数应该写什么呢？
self 和self.context都不行

lixy

DataSetZDYSJJ1:=TUserDataSet.Create(self);

zfang

self也不行吗？

loworth

加入用self
如图

zfang

你怎么写的？贴出来看一下。

lixy

你放到什么地方了，这段代码？贴个完整的图看看。

loworth

unit DRGS;

interface

uses
  Business.System, Business.Forms, Business.Model, Business.Data,ExcelHandling;

type
  TDRGS = class(TForm)
    panelControls: TPanel;
    btnImport: TButton;
    PanelDataGrid: TPanel;
    DataGrid: TDataGrid;
    sbStatusBar: TStatusBar;
    procedure btnImportClick(Sender: TObject);
    procedure BizFormCreate(Sender: TObject);
    procedure BizFormDestroy(Sender: TObject);
  private
    {private declarations}
    DataSet: TUserDataSet;
    _DataSource:TDataSource;
    procedure ImportWorkTime(strFileName,sheetName: string;iStartRow,iEndRow,iStartColumn: Integer);
  public
    {public declarations}
  end;

implementation

procedure TDRGS.BizFormCreate(Sender: TObject);
var
  bizField:TBizField;
begin
  DataSet:=TUserDataSet.Create(self);
  DataSet.Name:='DataSet';

  bizField:=TUserDataField.Create(DataSet);
  bizField.DataSet:= DataSet;
  bizField.ID:='MoldID';
  bizField.Name:='MoldID';
  bizField.DisplayName:='制号';
  bizField.DataType:=TDatatype.dtString;
  bizField.Size:=20;

  bizField:=TUserDataField.Create(DataSet);
  bizField.DataSet:= DataSet;
  bizField.ID:='ManufactureProgress';
  bizField.Name:='ManufactureProgress';
  bizField.DisplayName:='制造工序';
  bizField.DataType:=TDatatype.dtString;
  bizField.Size:=20;

  bizField:=TUserDataField.Create(DataSet);
  bizField.DataSet:= DataSet;
  bizField.ID:='dDate';
  bizField.Name:='dDate';
  bizField.DisplayName:='日期';
  bizField.DataType:=TDatatype.dtString;
  bizField.Size:=20;

  bizField:=TUserDataField.Create(DataSet);
  bizField.DataSet:= DataSet;
  bizField.ID:='WorkTime';
  bizField.Name:='WorkTime';
  bizField.DisplayName:='工时';
  bizField.DataType:=TDatatype.dtString;
  bizField.Size:=20;

  bizField:=TUserDataField.Create(DataSet);
  bizField.DataSet:= DataSet;
  bizField.ID:='Person';
  bizField.Name:='Person';
  bizField.DisplayName:='人员';
  bizField.DataType:=TDatatype.dtString;
  bizField.Size:=20;

以下省略、

loworth

在表单文档里用self没问题

放在窗体里就报错了

zfang

你看我的：

loworth

刚试了一下， 在主窗体上可以。

  当在功能下建一个新的窗体，然后主窗体某个按钮调用这个新窗体的时候，就所述错误。