Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As Field
Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\llh.mdb", 0, False)
Set DefTable = DefDatabase.CreateTableDef("VB")
Set DefField = DefTable.CreateField("Name", dbText, 8)
DefTable.Fields.Append DefField
…
“name” 字段,错了没有,不知道为什么,谢谢
參考答案:Set DefField = DefTable.CreateField("[Name]", dbText, 8)