动态修改表结构
http://www.foxtable.com/webhelp/index.htm?page=2122.htm
好像不能直接修改表结构,不过可以曲线救国,但因为修改了表结构,所以期间要重启项目。
'1,增加列
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
.AddColumn("数量1" ,ADOXType.Decimal)
End With
Builder.Close() '关闭ADOXBuilder
'2,重新打开项目,复制数据
For Each dr As DataRow In DataTables("表A").DataRows
dr("数量1") = dr("数量")
Next
DataTables("表A").Save()
'3,删除列 和 重命名列
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
.DeleteColumn("数量")
.RenameColumn("数量1","数量")
End With
Builder.Close() '关闭ADOXBuilder
'4,重新打开项目