access求救？？？

Question

我写一下我的程序：（执行通不过）
set db=opendatabase(app.path+"\student.mdb")
for i=0 to db.tabledefs.count-1
  if left(db.tabledefs(i).name,2)="00" then 
       db.tabledefs.delete db.tabledefs(i).name
next i
被删除的表的名字的前两个字符为“00”。
如何改？？？？？

Answer 1

if语句通过了吗（你没有写end if）？你就用Sql语句来删除表呗
set db=opendatabase(app.path+"\student.mdb")
for i=0 to db.tabledefs.count-1
  if left(db.tabledefs(i).name,2)="00" then 
       sql="drop table " & db.tabledefs(i).name
       db.execute sql
  end if
next i