定义临时表 出错 Invalid field type..... 谢谢各位大侠

Question

list := TClientDataSet.Create(Application);  list.FieldDefs.AddFieldDef.Name := 'ProductID';
  list.FieldDefs.AddFieldDef.DataType := ftInteger;  list.FieldDefs.AddFieldDef.Name := 'ProductName';
  list.FieldDefs.AddFieldDef.DataType := ftString;
  list.FieldDefs.AddFieldDef.Size := 32;  list.FieldDefs.AddFieldDef.Name := 'SaleTotalPrice';
  list.FieldDefs.AddFieldDef.DataType := ftCurrency;  list.FieldDefs.AddFieldDef.Name := 'TotalAmount';
  list.FieldDefs.AddFieldDef.DataType := ftInteger;  list.FieldDefs.AddFieldDef.Name := 'InTotalPrice';
  list.FieldDefs.AddFieldDef.DataType := ftCurrency;  list.FieldDefs.AddFieldDef.Name := 'SubPrice';
  list.FieldDefs.AddFieldDef.DataType := ftCurrency;  list.IndexDefs.AddIndexDef.Name := 'IniIndex';
  list.IndexDefs.AddIndexDef.Fields := 'ProductID';  list.CreateDataSet;
  list.Open;

Answer 1

有可能是你的某个字段类型搞错了，细查。