专家坐堂-批量重命名表内所有列Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  批量重命名表内所有列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103989)

--  作者：ltty5200
--  发布时间：2017/7/20 17:17:00
--  批量重命名表内所有列
表A中有很多列，其中一部分列的名字都含有"一月"这个字符，我想批量把列名字含有“一月”的所有列改名为"三月"，请问如何编写代码实现？

--  作者：有点甜
--  发布时间：2017/7/20 17:34:00
--
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder.Tables("表c")
    For Each dc As DataCol In DataTables("表C").datacols
        If dc.name.Contains("第") Then
            .RenameColumn(dc.name,dc.name.replace("第","a"))
        End If
    Next
End With
Builder.Close()
DataTables.unload("表C")
DataTables.load("表C")

--  作者：ltty5200
--  发布时间：2017/7/20 17:39:00
--
谢谢老师，还没看到这儿，正在使用中有了这个疑问，麻烦老师了