代码创建外部表的时候报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我用代码在外部数据库中要创建一个表，代码如下：

Dim Builder As New ADOXBuilder("xbdb")

Dim tbl As ADOXTable

Builder.Open()

tbl = Builder.NewTable("专业组专业")

With tbl

.AddColumn("批次" ,ADOXType.String,150)

.AddColumn("选考科目" ,ADOXType.String,150)

.AddColumn("学校编号" ,ADOXType.String,150)

.AddColumn("学校名称" ,ADOXType.String,150)

.AddColumn("专业代码" ,ADOXType.String,150)

.AddColumn("专业编号" ,ADOXType.String,150)

.AddColumn("专业名称" ,ADOXType.String,150)

.AddColumn("计划" ,ADOXType.Integer)

.AddColumn("学费" ,ADOXType.String,150)

.AddColumn("学制" ,ADOXType.String,)

.AddColumn("等级" ,ADOXType.String,)

.AddColumn("口试" ,ADOXType.String,)

.AddColumn("位次2020_平均" ,ADOXType.Integer)

.AddColumn("位次2020_投档" ,ADOXType.Integer)

.AddColumn("分数2020_平均" ,ADOXType.Integer)

.AddColumn("分数2020_投档" ,ADOXType.Integer)

.AddColumn("分数2020_院校" ,ADOXType.Integer)

.AddColumn("分数2020_校差" ,ADOXType.Integer)

.AddColumn("专业说明" ,ADOXType.String,255)

.AddColumn("id" ,ADOXType.Integer)

End With

Builder.AddTable(tbl, True, True)

Builder.Close()

但是出现如下的错误提示：

此主题相关图片如下：微信截图_20210325223652.png

问题是，我的数据库中并没有找到相应的表，只是我第一次创建这个表的时候，当时确实有相同文件名的数据库，但是我删除了，在运行这段代码还是报错，问题有两个：

我没有找到名为"专业组专业_primarykey"的表，运行上面这段代码会报错，但是还会创建出"专业组专业"表，但是不能加载进来，提示没有主键，如果我把表名"专业组专业"改为"专业组专业1"，就可以创建成功，正常加载也没问题

主题：代码创建外部表的时候报错