【结贴】自定义数据集的问题（急）**

lixy

//清除字段
var
  i : Integer;
begin
  for i := 0 to TUserDataSet(DataSetBroker2.DataSet).UserFieldCount - 1 do
    TUserDataSet(DataSetBroker2.DataSet).UserFields[0].Free;
end;     
//添加字段
var
  lBizField : TBizField;
begin
  with TUserDataSet(DataSetBroker2.DataSet) do
  begin
      lBizField := TUserDataField.Create(TUserDataSet(DataSetBroker2.DataSet)); //创建用户数据字段
      lBizField.DataSet := TUserDataSet(DataSetBroker2.DataSet);                //指定字段所在的数据集
      lBizField.ID := 'KF';                             //设置字段ID
      lBizField.DataType := TDataType.dtString;        //设置字段类型
      lBizField.Size := 32;                             //设置字段大小
      lBizField.DisplayName := '库房';                  //设置字段显示名称
  end;
end;

刺青

DataSetZHSJJ.First;
     while not DataSetZHSJJ.Eof do
     begin
       try
             lBizField := TUserDataField.Create(DataSetZDYSJJ1);
             lBizField.DataSet := DataSetZDYSJJ1;
             lBizField.ID := DataSetZHSJJ.FieldByName['KMXX_PYM'].AsString;
             lBizField.DataType := TDataType.dtNumber;
             lBizField.DisplayName := DataSetZHSJJ.FieldByName['KMXX_KMQM'].AsString;
          except
                DataSetZDYSJJ1.Free;
                DataSetZDYSJJ1 := nil;
                raise;
          end;
          DataSetZHSJJ.Next;
     end;

上面这样子添加字段可以吗？


删除字段这样子写没有错吧？
//清除字段
     for j := 3 to TUserDataSet(DataSetZDYSJJ1).UserFieldCount - 1 do
     begin
         TUserDataSet(DataSetZDYSJJ1).UserFields[j].Free;
     end;
但是，我删除字段的时候出错，如下图：

lixy

.....
你从3开始的，你看看UserFieldCount 有多少个。
你这个超出范围了。应该从几开始，你调试着就能看

刺青

procedure TZDRSKTJXX.DataSetDLSJJAfterOpen(DataSet: TDataSet);
var
   i,j : integer;
   s : string;
begin
     DataSetZHSJJ.Open;

     //清除字段
     Business.Forms.Dialogs.ShowMessage(SysUtils.IntToStr(TUserDataSet(DataSetZDYSJJ1).UserFieldCount));
     for j := 0 to TUserDataSet(DataSetZDYSJJ1).UserFieldCount-1 do
     begin
         TUserDataSet(DataSetZDYSJJ1).UserFields[j].Free;
     end;

     lBizField := TUserDataField.Create(DataSetZDYSJJ1);
     lBizField.DataSet := DataSetZDYSJJ1;
     lBizField.ID := 'ZYBH';
     lBizField.DataType := TDataType.dtString;
     lBizField.Size := 32;
     lBizField.DisplayName := '职员编号';

     lBizField := TUserDataField.Create(DataSetZDYSJJ1);
     lBizField.DataSet := DataSetZDYSJJ1;
     lBizField.ID := 'ZYQM';
     lBizField.DataType := TDataType.dtString;
     lBizField.Size := 32;
     lBizField.DisplayName := '职员全名';

     lBizField := TUserDataField.Create(DataSetZDYSJJ1);
     lBizField.DataSet := DataSetZDYSJJ1;
     lBizField.ID := 'SKZE';
     lBizField.DataType := TDataType.dtNumber;
     lBizField.DisplayName := '收款总额';

     DataSetZHSJJ.First;
     while not DataSetZHSJJ.Eof do
     begin
          //动态创建自定义数据集的字段
          try
             lBizField := TUserDataField.Create(DataSetZDYSJJ1);
             lBizField.DataSet := DataSetZDYSJJ1;
             lBizField.ID := DataSetZHSJJ.FieldByName['KMXX_PYM'].AsString;
             lBizField.DataType := TDataType.dtNumber;
             lBizField.DisplayName := DataSetZHSJJ.FieldByName['KMXX_KMQM'].AsString;
          except
                DataSetZDYSJJ1.Free;
                DataSetZDYSJJ1 := nil;
                raise;
          end;
          DataSetZHSJJ.Next;
     end;
     DataSetZDYSJJ1.Open;
end;

我测了好久了,都没测出来,为什么老是超出范围!是不是代码写错了?帮我看一下,谢谢

lixy

你看看那个dataset有多少个，为什么超出了？
代码我看不出来
lBizField := TUserDataField.Create(DataSetZDYSJJ1);
把改成
lBizField := TUserDataField.Create(nil);
或者 lBizField := TUserDataField.Create(信息);

刺青

TUserDataSet(DataSetZDYSJJ1).UserFields[j].Free;
原来是错在这里：我把 0 写成 j 了.

我想问下，怎么样才能清除自定义数据集里的记录．
把字段清除了，数据集中的数据好像没清除．

shangxy

DataSetZDYSJJ1.EmptyDataSet

刺青

谢谢shangxy,lixy and atiger
现在可以结贴了

atiger

ok，谢谢反馈