主题：[讨论] 用代码删除查询表，这段代码有错吗？

删除临时表可以直接用代码的。
系统命令和模拟按键似乎应该这样。

Sendkeys.Send("{ENTER}")
Syscmd.Table.Delete()

用流程语句怎么也只能删除一个表？

try
For Each dt As DataTable In DataTables
    If dt.Type = 4 Then
        Maintable = Tables(dt.name)
        Sendkeys.Send("{ENTER}")
        Syscmd.Table.Delete()
    End If
next
Catch ex As Exception
End try

没错呀，看看三楼。
只是每执行一次只能删除一个表，搞不明白为什么。

还是希望他爸能开放用代码删除所有类型表的功能，此功能虽有一定的风险，感觉还是大家各取所需比较好。
或者在表属性中增加一个允许删除属性，默认不允许，这样就可以减少一些担忧。