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")
加好友 
发短信
Post By：2017/7/20 17:34:00 [显示全部帖子]
