批量删除数据库的表对象 2012-05-22

'调用方法：Call sc ' Public Function sc() Dim dbs As Database Dim tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs  If Le ...

(1298)次阅读|(0)个评论

查看更多