谢!!!作者: fredlin 时间: 2004-3-24 20:46
1)
Dim dbApp As DAO.Database
Dim tmpTBL As DAO.TableDef
Set dbApp = CurrentDb
Set tmpTBL = dbApp.CreateTableDef(TBName)
Set fld = tmpTBL.CreateField("***", DB_TEXT, 20)
tmpTBL.Fields.append fld
Set fld = tmpTBL.CreateField("***", DB_TEXT, 80)
tmpTBL.Fields.append fld