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

这样可以删除:  放在命令窗口试一试！～
dim n as integer
For Each dt As DataTable In DataTables
    If dt.Type = 4 Then
        n=n+1
    End If
next
Dim i As Integer = 1
Do While i <= n
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
    i = i + 1
loop