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
try
Builder.Tables("表A").RenameColumn(OLDname,NewName)
catch ex As exception
msgbox(ex.message)
msgbox(dc.Name & "是表达式")
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
加好友 
发短信
Post By：2015/5/28 16:40:00 [只看该作者]
