这样更改字段名称报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、是不是这个代码导致的报错？

注释掉看看

2、我这样测试正常

Dim t1 As Table = Tables("表A")
If t1.Cols.Contains("第二列") = True Then
    Dim Builder As New ADOXBuilder '要指定数据源名称
    'Dim tbl As ADOXTable
    Builder.Open()
    With Builder.Tables(t1.name)
        .RenameColumn("第二列" ,"品名")
    End With
    Builder.Close()
    DataTables.unload("表A")
    DataTables.Load("表A")
End If

我测试了一下代码，代码没问题。肯定不是你5楼报的错。

这个代码有错

DataTables.unload("日志")

DataTables.load("日志")

DataTables("日志").DataCols("日期").SetDateTimeFormat(DateTimeFormatEnum.DateTime)

外部数据表（代码新建的），无法直接通过unload、load加入的

如果要加入，只能临时加入 http://www.foxtable.com/webhelp/scr/1279.htm

每段代码单独测试；执行下面代码报什么错？

Dim Builder As New ADOXBuilder("bjgl") '要指定数据源名称

Dim tbl As ADOXTable

Builder.Open()

tbl = Builder.NewTable("日志") '创建表

With tbl

.AddColumn("日期" ,ADOXType.DateTime)

.AddColumn("说明" ,ADOXType.String, 12)

.AddColumn("品名" ,ADOXType.String, 60)

.AddColumn("封装" ,ADOXType.String, 60)

.AddColumn("备注" ,ADOXType.String, 254)

.AddColumn("操作员" ,ADOXType.String,12)

End With

Builder.AddTable(tbl) '增加表

Builder.Close()

如果报【日志表已经存在】，那，说明你的外部数据库那里，已经存在日志表了。

以下是引用xxfoxtable在2018/5/17 9:15:00的发言：
If Tables.Contains("日志") Then这样判断是不是不管事啊？

用用connections去判断才行

If Connections("数据源").GetTableNames.Contains("日志") Then

End If

主题：这样更改字段名称报错