怎样用TADODataSet或TClientDataSet添加字段?

Question

我用TADODataSet连接Access数据库,然后用CommandText选择数据库的视图进行报表打印,我想为原来的表添加行号和其他的字段,我通过ObjectTreeView为TADODataSet中的FieldDefs添加了一个字段,可是用FieldByName查找该字段时报告Access violation,请问是怎么回事啊?应该怎么做呢

Answer 1

用代码添
myClientDataSet:=tClientDataSet.Create(nil);
      with myClientDataSet do
      begin
        with FieldDefs.AddFieldDef do
        begin
          DataType:=ftString;
          Size:=16;
          Name:='styleCode';
        end;
        with FieldDefs.AddFieldDef do
        begin
          DataType:=ftString;
          Size:=16;
          Name:='spec';
        end;
        with FieldDefs.AddFieldDef do
        begin
          DataType:=ftString;
          Size:=16;
          Name:='color';
        end;
        with FieldDefs.AddFieldDef do
        begin
          DataType:=ftInteger;
          Name:='Amount';
        end;
        CreateDataSet ;
      end;