【结贴】自定义数据集中用代码增加的数据字段不能使用

lxh_78

我在业务信息中定义好的自定义数据集中用代码增加了一个字段，代码如下：
          lBizField := TUserDataField.Create(dsbStatisResult.DataSet); //创建用户数据字段
          lBizField.DataSet := TUserDataSet(dsbStatisResult.DataSet);                //指定字段所在的数据集
          lBizField.ID := 'HCOL';                             //设置字段ID
          lBizField.DataType := TDataType.dtString;        //设置字段类型
          lBizField.Size := 64;                             //设置字段大小
          lBizField.DisplayName := '统计指标';    //设置字段显示名称
          InfoBroker.Info.RefreshList;

在下面我用代码赋值：
dsbStatisResult.DataSet.FieldByName('HCOL').AsString:='111';
提示HCOL字段不存在，这是为什么呢

lxh_78

能不能赶紧看一下是什么原因，着急用呢

atiger

楼主看一下 dsbStatisResult.DataSet.active 是啥？false还是true？

zfang

完整 参考代码（建议 自定义数据集 本身也是动态创建的方式）：
var
  lBizField: TBizField;
  FUserDataSet : TUserDataSet;//最好不要在这里定义，只是为了简单
begin
  if (FUserDataSet = nil) then
  begin
    FUserDataSet := TUserDataSet.Create(self);      //创建自定义数据集
    try
      FUserDataSet.ID := 'UserDataSet1';               //设置自定义数据集ID
      lBizField := TUserDataField.Create(FUserDataSet);
        //创建用户数据字段
      lBizField.DataSet := FUserDataSet;      //指定字段所在的数据集
      //RefreshList; //刷新信息列表，当要访问创建数据集的ID时，就需要刷新，
      lBizField.ID := 'KF';                            //设置字段ID
      lBizField.DataType := TDataType.dtString;          //设置字段类型
      lBizField.Size := 32;                            //设置字段大小
      lBizField.DisplayName := '库房';                 //设置字段显示名称
    except
      FUserDataSet.Free;
      FUserDataSet := nil;
      raise;
    end;
    DTTJL_ZDYSJJ.TDTTJLWG(DocViewDTTJL_ZDYSJJ_DTTJLWG.Doc).DataGrid.DataSource.DataSet := FUserDataSet;
    FUserDataSet.Open;
    FUserDataSet.Append;
    FUserDataSet.FieldByName('kf').AsString := '1';
  end
  else
    Dialogs.ShowMessage('自定义数据集不能被创建');
end;

lxh_78

用代码增加自定义字段时，数据集是打开的

zfang

请楼主参考4楼。

lxh_78

你在过程中动态创建自定义数据集后，用你的代码是可以的，我的自定义数据集是在业务信息中定义的，在代码中追加字段，就不行，这是为什么呢

atiger

你的意思在业务信息下创建一个自定义数据集，然后代码创建字段，给字段赋值不行，我测试是可以的，

你是怎么知道数据集是打开着的，在赋值前open一下数据集，然后看看呢

我的代码参考如下

var
  lBizField: TBizField;
begin
  lBizField := TUserDataField.Create(DataSetBroker1.DataSet); //创建用户数据字段
  lBizField.DataSet := TUserDataSet(DataSetBroker1.DataSet);                //指定字段所在的数据集
  lBizField.ID := 'HCOL';                             //设置字段ID
  lBizField.DataType := TDataType.dtString;        //设置字段类型
  lBizField.Size := 64;                             //设置字段大小
  lBizField.DisplayName := '统计指标';    //设置字段显示名称
  if DataSetBroker1.DataSet.active= false then
     DataSetBroker1.DataSet.open;
  DataSetBroker1.DataSet.append;
  DataSetBroker1.DataSet.FieldByName('HCOL').AsString:='1';
  dialogs.ShowMessage(DataSetBroker1.DataSet.FieldByName('HCOL').AsString);
end;

lxh_78

下面是我的代码，在dsbStatisResult打开后，程序运行到
dsbStatisResult.DataSet.FieldByName('HCOL').AsString:='1';
时，出现错误提示：字段HCOL不存在，这是什么原因呢

procedure TMainForm.UpdateStatisDataSet2();
var
  lBizField: TBizField;
begin
  lBizField := TUserDataField.Create(dsbStatisResult.DataSet); //创建用户数据字段
  lBizField.DataSet := TUserDataSet(dsbStatisResult.DataSet);                //指定字段所在的数据集
  lBizField.ID := 'HCOL';                             //设置字段ID
  lBizField.DataType := TDataType.dtString;        //设置字段类型
  lBizField.Size := 64;                             //设置字段大小
  lBizField.DisplayName := '横栏';    //设置字段显示名称
  //jsDialogs.ShowMsg(TUserDataSet(dsbStatisResult.DataSet).UserFieldCount,'');
  if dsbStatisResult.DataSet.active= false then
  dsbStatisResult.DataSet.open;
  //dsbStatisResult.DataSet.FieldCount;
  dsbStatisResult.DataSet.append;
  dsbStatisResult.DataSet.FieldByName('HCOL').AsString:='1';
  dialogs.ShowMessage(dsbStatisResult.DataSet.FieldByName('HCOL').AsString);
end;

lxh_78

补充一下，在添加字段前，dsbStatisResult是关闭的