以下是引用狐狸爸爸在2011-9-15 23:08:00的发言:
惭愧,是我自己看错了,居然还教训楼主,自打30板
对不起了,楼主,这个不能用代码设置的。
--------------------------------------------------------------------
板下留人,慢打!俺有一笨方法,看看能否解楼主燃眉之急?
For Each r As Row In Tables("A").rows
If Tables(r("TableName")).DataTable.Caption <> r("Caption") Then
MainTable = Tables(r("TableName"))
Sendkeys.Send("{Tab}" & r("Caption") & "{Tab}~" )
Syscmd.Table.Rename()
End If
Next
MainTable = Tables("B")
[此贴子已经被作者于2011-9-16 8:10:28编辑过]