With wwclientdataset1 Do Begin close; F := TIntegerField.Create(wwclientdataset1); F.FieldName := '產品名稱'; F.Calculated := true; f.KeyFields := '產品代號'; f.LookupDataSet := wwclientdataset3; f.LookupKeyFields := '品名代號'; f.LookupResultField := '品名'; F.DataSet := wwclientdataset1; FieldDefs.Update End; 這是我新增一欄位的寫法，在這之前，我的欄位是用sql語法串好，丟到 ADODataSet1.CommandText裡，那時已經有五個欄位了。 但執行以上程式時，我的五個欄位已被清空，不知這是什麼原因？

如果没有创建永久字段，DataSet Close后Fields就没有了。 如果要想创建一个计算字段，那么必须把需要的字段全部创建成永久字段，如

DataSet1.SQL.Text:='xxxxxxxx where 1=2';
DataSet1.Open;
DataSet1.FieldDefs.Update;
DataSet1.Close;
for i:=0 to DataSet1.FieldDefs.Count-1 do
  DataSet1.FieldDefs[i].CreateField(DataSet1);
F:=TIntegerField.Create(DataSet1);
.......
DataSet1.SQL.Text:=xxxxxxxx';
DataSet1.Open;

久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人

引言: 如果没有创建永久字段，DataSet Close后Fields就没有了。 如果要想创建一个计算字段，那么必须把需要的字段全部创建成永久字段，如

DataSet1.SQL.Text:='xxxxxxxx where 1=2';
DataSet1.Open;
DataSet1.FieldDefs.Update;
DataSet1.Close;
for i:=0 to DataSet1.FieldDefs.Count-1 do
  DataSet1.FieldDefs[i].CreateField(DataSet1);
F:=TIntegerField.Create(DataSet1);
.......
DataSet1.SQL.Text:=xxxxxxxx';
DataSet1.Open;

久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

不好意思。再請問一下 當DataSet1.Close; 時，count就會等於0 那for i:=0 to DataSet1.FieldDefs.Count-1 do DataSet1.FieldDefs[i].CreateField(DataSet1); 就沒用了。 因我是每次sql都重丟一次(程式上的需要) 這樣還有辦法新增計算欄位嗎？

RecordCount虽然等于0，但FieldDefs.Count是不为0的。 每次丢sql没有关系，只要每次sql抓出的Field都一样就好了，每次都一样，那个CreateField的动作只做一次就行了，如在Form的OnCreate     久病成良医--多试 千人之诺诺,不如一士之谔谔--兼听

------
江上何人初见月，江月何年初照人