OpenAsClone函数在Delphi XE4中引起错误

Question

我在Delphi XE4应用程序中有两个数据集，如下所示：

object dsDestination: TpFIBDataSet

    object Field1: TFIBStringField
      FieldName = 'MYSTRING'
      Size = 1
      Transliterate = False
    ene

    object Field2: TFIBIntegerField
      FieldName = 'MYINT'
    end

  end

object dsSource: TpFIBDataSet

    object dsSourceMYSTRING: TFIBStringField
      FieldName = 'MYSTRING'
      Size = 1
      Transliterate = False
    end

    object dsSourceMYINT: TFIBIntegerField
      FieldName = 'MYINT'
    end

  end

当我试图声明如下：

dsSource.Open;
dsDestination.OpenAsClone(dsSource);

我在最后一行中得到了以下错误

dsDestination: Field MYSTRING not found

我的Delphi 7应用程序使用Firebird 2.5.1，而Delphi XE4使用的是2.5.2。我使用的是FIBPlus 7.5。

Answer 1

我发现了错误的原因：

当我看到dsDestination数据集的字段编辑器时，它被dsSource字段填充。我刚刚从dsDestination的字段编辑器中删除了所有字段，构建并编译了这个项目，问题就解决了。