动态增加列时出现问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Builder As New ADOXBuilder
Builder.Open()
Builder.Tables("表A").AddColumn("备注" ,ADOXType.Text) '增加备注列

Builder.Close()

通过以上代码增加列时出现这个错误提示。

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20141029185514.jpg

求老师解答

没有重复增加，而且重复增加的报错不是这样的。

奇怪的是在我的项目里只要通过代码动态增加列就会出现这个错误。

甜老师能不能通过错误提示看出来时什么问题？

Dim resta As Integer = 0

Dim 生产备注 As Boolean = True

Dim 算价 As Boolean = True

For Each dd As Col In Tables("订单").Cols

If dd.Name = "生产备注" Then

生产备注 = False

End If

For Each ddsj As Col In Tables("订单数据").Cols

If ddsj.Name = "算价" Then

算价 = False

End If

If 生产备注 = True Then

Dim Builder As New ADOXBuilder

Builder.Open()

Builder.Tables("订单").AddColumn("生产备注" ,ADOXType.text)

Builder.Close()

resta = resta + 1

End If

If 算价 = True Then

Dim Builder As New ADOXBuilder

Builder.Open()

Builder.Tables("订单数据").AddColumn("生产备注" ,ADOXType.text)

Builder.Close()

resta = resta + 1

End If

If resta > 0 Then

MessageBox.Show("为了迎合新功能,数据库已经自动升级,需要重新打开软件.请在软件自动关闭后再手动打开.")

Syscmd.Project.Exit(True)

End If

我的代码其实是这样的，但是在运行到：Builder.Tables("订单").AddColumn("生产备注" ,ADOXType.text)

这条代码时就出现了前面说的错误。甜老师看看怎么回事

甜老师，我用的是win7.

而且我通过系统菜单能增加列。

现在发现只是在通过代码动态添加列会出现错误。

Dim Builder As New ADOXBuilder

Builder.Open() '打开ADOXBuilder

Builder.Tables("库存").AddColumn("算价" ,ADOXType.text) '增加日期型列

Builder.Close() '关闭ADOXBuilder

就像上面这个简单的代码也会出现错误，无法增加列

已经是最新版本了。

我把项目发上来甜老师看看。

打开项目后用代码在任意表增加一列都会报错

[此贴子已经被作者于2014-10-29 23:43:03编辑过]

甜老师，我的表名没有写错啊。。

不用麻烦甜老师了，，，我的代码写错了图片点击可在新窗口打开查看

主题：动态增加列时出现问题