Dim dr As DataRow
If Vars("GUID") <> "" Then
dr = DataTables("实体表").Find("GUID='" & Vars("GUID") & "'")
If dr IsNot Nothing Then
Dim Builder As New ADOXBuilder("服务器")
Builder.Open() '打开ADOXBuilder
With Builder.Tables(dr("表名"))
.DeleteColumn(dr("列名"))
End With
Builder.Close() '关闭ADOXBuilder
dr.Delete()
End If
End If
If DataTables("实体表").HasChanges Then
DataTables("实体表").Save()
MessageBox.Show("已经删除该列")
End If
Syscmd.Project.Open(ProjectFile)
我用动态修改表结构的方法,来删除和新增列, 执行成功,但是每次Syscmd.Project.Open(ProjectFile)后 报了一个错误:
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
这个是怎么回事呢?
加好友 
发短信
Post By：2020/11/19 11:23:00 [只看该作者]
