标题：Syscmd.Table.Delete() 怎样做不跳出提示窗口？

另外下面代码怎么每删除一个查询表确认后，就提示一个错误？ 且确认后可以继续进行···
For Each dtb As DataTable In DataTables
    If DataTables(dtb.name).Type = 4 Then
        Syscmd.Table.Delete()
    end if
Next

呵呵，别这样玩，这危险性也太大了。
查询表反正不保存，不删除也无大碍，不如改成隐藏。
如果一定要这样做，删除前最好加一段代码，如MainTable = Tables(dtb.name)

If DataTables.Contains("统计表1") '如果存在统计表1
    DataTables.Delete("统计表1") '则删除之
End If