各位高手好: 在design-time 時，對adodataset or adoquery double click之後可以增加field， 請問此動作在run-time 時指令如何下? 我試過用 adodataset1.fieldlist.add(somefieldname) 但是會出現此property is read-only的訊息，請教正確方法，謝謝!

Hi tedddywoo555,    試試這樣

procedure TForm1.Button1Click(Sender: TObject);
begin
  with ADODataSet1 do
    begin
      Close;
      FieldDefs.Add('Field'   IntToStr(ADODataSet1.FieldDefs.Count),ftString,40,True);
      CreateDataSet;
    end;
end;    或是    procedure TForm1.Button2Click(Sender: TObject);
begin
  with ADODataSet1 do
    begin
      Close;
      with FieldDefs.AddFieldDef do
        begin
          DataType := ftString;
          Size := 10;
          Name := 'Field'   IntToStr(ADODataSet1.FieldDefs.Count);
        end;
      CreateDataSet;
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman