根据数据字典，创建一个空表结构的问题（表名是变化的）**

lizehua1394

var
  lNewTableDef: TBizTableDef;
begin
  lNewTableDef := TBizTabledef.Create(BizSys.GlobalContext);
  try
    lNewTableDef.FieldDefs.Assign(FBizTableDef.FieldDefs);
    lNewTableDef.IndexDefs.Assign(FBizTableDef.IndexDefs);
    lNewTableDef.ForeignKeyDefs.Assign(FBizTableDef.ForeignKeyDefs);
    lNewTableDef.ID := FBizTableDef.ID+'_TEMP';
    CreateEmptyPhyTable(lNewTableDef);
  finally
    lNewTableDef.Free;
  end;


procedure TPhyTableGenerator.CreateEmptyPhyTable(ABizTableDef: TBizTableDef);
var
  lTableDefSchemaTable: TTableDefSchemaTable;
  lTableBuilder: TTableBuilder;
begin
  lTableBuilder := TTableBuilder.Create;
  lTableDefSchemaTable := TTableDefSchemaTable.Create(ABizTableDef,
    BizSchemaTypes.cDriver_ORACLE);
  try
    lTableBuilder.CreateTable(nil, FConnection, lTableDefSchemaTable, Business.Model.TCreateMode.cmtCreate,
      false, True, -1);
  finally
    lTableDefSchemaTable.Free;
    lTableBuilder.Free;
  end;
end;

这样创建，没有异常错误，表也未创建成功，有别的什么好办法没，注意（数据字典和实际物理表结构不一致，所以不能使用物理表来拷贝结构）

jiahaiming

楼主，试试这个：
procedure CreateLogicTable(ABizTableDef: TBizTableDef; ADBURL : String;
  ACreateNew: Boolean);
var
  lDesc: TTableDefDesc;
  lCreator: TTableDefCreator;
  lBizTableDef : TBizTableDef;
begin
  lDesc := TTableDefDesc.Create(nil);
  lDesc.LanguageExt := '.pas';
  lDesc.FileName := ABizTableDef.ID + '.Table';
  lDesc.DisplayName := ABizTableDef.DisplayName;
  if ACreateNew then
    lDesc.CreateMode := Business.Forms.TCreateMode.cmNew
  else lDesc.CreateMode := Business.Forms.TCreateMode.cmRecreate; //修改

  lBizTableDef := lDesc.TableDef;  //用lbiztabledef替换temptabledef，需要单独释放temptabledef
  lDesc.TableDef := ABizTableDef;

  lCreator := TTableDefCreator.Create;
  try
    lCreator.Execute(Business.Model.BizSys.ObjectInfo(ADBURL).BizURL, lDesc,
      BizSys.GlobalContext);
    lCreator.Save;
  finally
    lDesc.TableDef := lBizTableDef;
    lDesc.Free;
    lCreator.Free;
  end;
end;