Dim strDB As String Dim strTbl As String Dim tmpWS As Workspace Dim dbs As Database Dim tdf As TableDef Dim fldtmp As Field strDB = App.Path & "/" & Text1.Text & ".mdb" strTbl = Text2.Text If FileExist(strDB) = False Then Set dbs = Workspaces(0).CreateDatabase(strDB, dbLangGeneral) Set tdf = dbs.CreateTableDef(strTbl) End If Set dbs = OpenDatabase(strDB) Set tdf = dbs.CreateTableDef(strTbl) Set fld = tdf.CreateField() '自动编号类型 With fld .Name = "ID" .Type = dbLong '.Size = 50 .Attributes = .Attributes Or dbAutoIncrField End With tdf.Fields.Append fld Set fld = tdf.CreateField("RQ", dbText, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("BM", dbText, 30) fld.AllowZeroLength = True tdf.Fields.Append fld Set fld = tdf.CreateField("MC", dbText, 50) tdf.Fields.Append fld Set fld = tdf.CreateField("GG", dbText, 30) fld.AllowZeroLength = True tdf.Fields.Append fld Set fld = tdf.CreateField("DW", dbText, 30) fld.AllowZeroLength = True tdf.Fields.Append fld Set fld = tdf.CreateField("CD", dbText, 30) fld.AllowZeroLength = True tdf.Fields.Append fld Set fld = tdf.CreateField("PFJ", dbCurrency, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("DJ", dbCurrency, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("SL", dbDouble, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("JE", dbCurrency, 30) tdf.Fields.Append fld Set fld = tdf.CreateField("GHDW", dbText, 50) tdf.Fields.Append fld Set fld = tdf.CreateField("JHDW", dbText, 50) tdf.Fields.Append fld dbs.TableDefs.Append tdf dbs.Close Set dbs = Nothing