主题：关闭主表时发生的小问题

请教老师：我打开几全表后，用关闭主表按钮关闭主表，现在存在以下一个问题：

上面有几个字找错了

 上传具体例子。

项目无法上传，我先做个例子看有没有同样的问题

请老师看看：在配置栏做了一个按钮  关闭表，问题和我前面说的一样。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

Dim tname As String = MainTable.Name
MainTable.Visible = False
If MainTable.name = tname Then
    Dim lstName As String = ""
    For Each dt As DataTable In DataTables
        If Tables(dt.Name).Visible Then
            lstName = dt.Name
        End If
    Next
    If lstName > "" Then
        MainTable = Tables(lstName)
    End If
End If

谢谢大红袍老师