【结】userdataset动态创建多列**

jianth2005

//*********创建5列*********      
for i:=0 to 4 do
begin
           lBizField.ID := SysUtils.inttostr(i);                            //设置字段ID
           lBizField.DataType := TDataType.dtString;          //设置字段类型
           lBizField.Size := 32;                            //设置字段大小
           lBizField.DisplayName :=Query1.FieldByName['gsdm'].AsString;
           dialogs.ShowMessage(SysUtils.IntToStr(i));
end;
DataSetZDYSJJ.Open;
//*********分别给每列赋值*********   
for i:=0 to 4 do
begin
             DataSetZDYSJJ.Append;
             DataSetZDYSJJ.Fields.AsString:=query1.FieldByName['qymc'].AsString;
end;

以上的代码报错，报错的地方是DataSetZDYSJJ.Fields.AsString:=query1.FieldByName['qymc'].AsString;
里面的i越界。是不是自定义数据集每次只能生成一列啊？

atiger

是不是自定义数据集每次只能生成一列啊？
不是，

以上的代码报错，越界。？
啥错误，把原始错误帖出来看看，

jianth2005

这个问题解决了
不过我用DataSource_xssj.DataSet.Close;   然后在过滤的时候他会多一条记录出来．不知道是什么原应．
procedure TMainForm.aa(gl:string);
var
  lBizField: TBizField;
  zd:array of string;//字段名
  i,k,j:integer;
begin
     DataSource_xssj.DataSet.Close;
     DataSetbzsjj.Close;
     DataSetbzsjj.Open;
     DataSetbzsjj.Filter:=gl;
     DataSetbzsjj.Filtered:=true;
     sl:=DataSetbzsjj.RecordCount;

     for j := 0 to TUserDataSet(DataSetZDYSJJ).UserFieldCount-1 do
     begin
         TUserDataSet(DataSetZDYSJJ).UserFields[0].Free;
     end;
     setlength(zd,DataSetbzsjj.RecordCount);
     try
           lBizField := TUserDataField.Create(DataSetZDYSJJ);
           lBizField.DataSet := DataSetZDYSJJ;
           lBizField.ID := 'kf';                            //设置字段ID
           lBizField.DataType := TDataType.dtString;          //设置字段类型
           lBizField.Size := 32;
           lBizField.DisplayName :=' ';

      for i:=0 to zd.Length-1 do
      begin
           lBizField := TUserDataField.Create(DataSetZDYSJJ);
           lBizField.DataSet := DataSetZDYSJJ;
           lBizField.ID := SysUtils.inttostr(i);                            //设置字段ID
           lBizField.DataType := TDataType.dtString;          //设置字段类型
           lBizField.Size := 32;                            //设置字段大小
           lBizField.DisplayName :=DataSetbzsjj.FieldByName['gsdm'].AsString;
       end;
       DataSetZDYSJJ.Open;
       for k:=0 to 1 do
       begin
            DataSetbzsjj.First;
            DataSetZDYSJJ.Append;
            DataSetZDYSJJ.Fields[0].AsString:=DataSetbzsjj.Fields[2+k].DisplayLabel;
            for i:=0 to zd.Length-1 do
            begin
                 DataSetZDYSJJ.Fields[i+1].AsString:=DataSetbzsjj.Fields[2+k].AsString;
                 DataSetbzsjj.Next;
            end;
       end;            //设置字段显示名称
    except
      DataSetZDYSJJ := nil;
      DataSetZDYSJJ.Free;
      DataSetZDYSJJ.Close;
      DataSetbzsjj.Close;
      raise;
    end;
end;

atiger

在过滤的时候他会多一条记录出来
怎么过滤的？过滤前显示正确的？

另外，把界面帖出来看看

jianth2005

你知道什么原因
我杂DataSetZDYSJJ.Open;加了delete几没有问题了

atiger

ok
结