真诚感谢!
狐狸爸爸的是正路,我下面的是旁路(旁路也是大红袍、BIN大师提供的)
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 = "ttt"+dc.name
OLDname = dc.name
Try
Builder.Tables("表A").RenameColumn(OLDname,NewName)
Catch ex As Exception
End Try
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
[此贴子已经被作者于2015/5/28 16:57:43编辑过]