主题：[求助]改列名后重新代码加载会报错！

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

报什么错? 

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

请问报什么错?

 删除列的时候，要unload表，然后再load表。

见附件。

 

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

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

DataTable的load是加载数据,  你修改了结构，当然会出错。

 

应该先先卸载：

http://www.foxtable.com/help/topics/2754.htm

再加载：

http://www.foxtable.com/help/topics/2753.htm

 

个人建议你不要去折腾这些东西，不适合目前的你。

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

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

 

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

 

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

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
    If dc.DataCol.Expression = "" Then
        NewName =  "pii"+dc.name
        OLDname = dc.name
        Builder.Tables("表A").RenameColumn(OLDname,NewName)
    End If
Next
Builder.Close()

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

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

 

我去试一下，回来报告。

 

 

。。。。

 

试了一下，新加表达式列，但不设表达式，代码仍旧会报错。。。。