第1个回答 推荐于2018-03-29
代码如下:
//创建表
if( !FileExists(tablepath+"\\test.DBF"))
{
//初始化
Table1->Active = false;
Table1->TableType = ttFoxPro;
Table1->TableName = tablepath+"\\test.DBF";
//定义字段
Table1->FieldDefs->Clear();
Table1->FieldDefs->Add("z_jysj",ftDateTime,0,false);
Table1->FieldDefs->Add("z_zybh",ftInteger,0,false);
Table1->FieldDefs->Add("z_cfbh",ftInteger,0,false);
Table1->FieldDefs->Add("z_sflb",ftInteger,0,false);
Table1->FieldDefs->Add("z_ypbm",ftString,13,false);
Table1->FieldDefs->Add("z_sl",ftInteger,0,false);
Table1->FieldDefs->Add("z_fy",ftFloat,0,false);
Table1->FieldDefs->Add("z_sfid",ftString,18,false);
Table1->FieldDefs->Add("z_zzys_id",ftInteger,0,false);
Table1->FieldDefs->Add("z_ks_id",ftInteger,0,false);
Table1->FieldDefs->Add("z_ypmc",ftString,30,false);
Table1->FieldDefs->Add("z_gg",ftString,10,false);
Table1->FieldDefs->Add("z_dw",ftString,10,false);
Table1->FieldDefs->Add("z_dj",ftFloat,0,false);
//创建表
try
{
Table1->CreateTable();
}
catch(...)
{
}
}