主题：求寻找隐藏表问题，显示不出

命令窗口

For Each dt As DataTable In DataTables
    If dt.Type = 1 OrElse dt.Type = 3 OrElse dt.Type = 5 Then
        If dt IsNot Nothing Then
            Output.Show(dt.Name)
        End If
    End If
Next
If Tables("临时订单").Visible=False Then
Tables("临时订单").Visible=True
End If

有四个表分别

Main
表A
订单
临时订单