[求助]改列名后重新代码加载会报错！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]改列名后重新代码加载会报错！

共有3008人关注过本帖树形打印复制链接主题：[求助]改列名后重新代码加载会报错！

whyfoxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：134 积分：1047 威望：0 精华：0 注册：2014/11/24 11:07:00

[求助]改列名后重新代码加载会报错！ 发帖心情

Post By：2015/5/28 15:35:00 [显示全部帖子]

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder.Tables("表B")
.RenameColumn("第三列","成绩")
End With
Builder.Close()
DataTables("表B").Load

[此贴子已经被作者于2015/5/28 15:38:18编辑过]

whyfoxtable

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：134 积分：1047 威望：0 精华：0 注册：2014/11/24 11:07:00

[求助]会提示“表B没有“成绩”列” 发帖心情

Post By：2015/5/28 15:38:00 [显示全部帖子]

然后就是一大堆代码，表B也不能正常出现，需要关闭程序重新打开才可见。

whyfoxtable

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：134 积分：1047 威望：0 精华：0 注册：2014/11/24 11:07:00

[求助]有如下报错. 发帖心情

Post By：2015/5/28 15:43:00 [显示全部帖子]

见附件。

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

此主题相关图片如下：n2.jpg

[此贴子已经被作者于2015/5/28 15:47:20编辑过]

whyfoxtable

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：134 积分：1047 威望：0 精华：0 注册：2014/11/24 11:07:00

[求助]毛病出在表上，表中有表达式列！ 发帖心情

Post By：2015/5/28 16:11:00 [显示全部帖子]

去除表达式列，则代码正常。

有表达式列，则代码不能正常。

现在，如何检测是否是表达式列？

Dim Builder As New ADOXBuilder
Dim dc As Col
Dim NewName As String
Dim OLDname As String
Builder.Open()
    For Each dc In Tables("表A").Cols
        NewName = "pii"+dc.name
        OLDname = dc.name
        Builder.Tables("表A").RenameColumn(OLDname,NewName)
    Next
Builder.Close()

If DataTables.Contains("表A") Then '如果表已经加载
DataTables.Unload("表A") '卸载表
End If

If (DataTables.Contains("表A") = False) Then '如果未加载
DataTables.load("表A") '加载表
End If

[此贴子已经被作者于2015/5/28 16:17:52编辑过]