2

基于如何在 Delphi 中以编程方式将字段添加到 TAdoTable我正在尝试将所有字段动态添加到 FibPlus 数据集（可以是任何 TDataSet 后代）。每个字段都被声明为一个变量。声明部分

  TForm4 = class(TForm)
    pFIBDatabase1: TpFIBDatabase;
    pFIBTransaction1: TpFIBTransaction;
    ds1: TpFIBDataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   iVERField : TFIBIntegerField;//I need that all fields to be represented by a variable
    { Public declarations }
  end;

在 formcreate 事件中，我创建了所有字段，设置了所需的属性并将所有这些属性动态添加到我的数据集中。

procedure TForm4.FormCreate(Sender: TObject);
var i:Integer;
    fieldDef :TFieldDef;
begin
 ds1.SQLs.SelectSQL.Text := 'select ver from ver';

 ds1.Fields.Clear;
 ds1.FieldDefs.Clear;
 ds1.FieldDefs.update;

 iVERField := TFIBIntegerField.Create(ds1);
 iVERField.FieldName := 'VER';
 iVERField.DisplayLabel := 'VER';
 iVERField.Name := 'iVERField';
 iVERField.DataSet := ds1;
 ds1.Fields.Add(iVERField);

 ds1.Open;
end;

我的问题是该字段在 dbgrid 上显示为重复项

在此处输入图像描述

LE：为什么字段出现两次：

 iVERField.DataSet := ds1; //one 
 ds1.Fields.Add(iVERField);//two

LE1：这是我应该将所有字段作为变量添加到数据集中的方式吗？

4

1 回答 1

2

在 D7 中（我怀疑它已经改变了），TField 的 SetDataSet 方法已经调用了数据集的 Ffields.Add 方法，所以你的显式 ds1.Fields.Add 第二次添加它，因此是重复的字段。

于 2014-01-30T14:13:45.557 回答