主题：代码切换错误

谢谢大家，能把我看看吗？为什么我在点击按钮后 本是显示或隐藏企业档案表  但是为什么会切换到同按钮窗口绑定的表啊

感谢 感谢 

能帮我改改吗 感谢

If e.Sender.Text = "显示" Then

    e.Sender.Text = "隐藏"

    CurrentTable.DataTable.LoadFilter = ""

    CurrentTable.DataTable.Load()

ElseIf e.Sender.Text = "隐藏" Then

    e.Sender.Text = "显示"

    Dim s As String

    For i As Integer = Tables("企业档案").Rows.Count - 1 To 0 Step - 1

        For j As Integer = 0 To Tables("企业档案").Cols.Count - 1

            If Tables("企业档案").Cols(j).Name = "企业_隐藏否" Then

                s + = Tables("企业档案").Text(i,j) & ","

            End If

        Next

        If s > "" Then

            If s.Trim(",") = "True" Then

                Tables("企业档案").Rows(i).DataRow.Remove()

            End If

        End If

        s = ""

    Next

End If

能帮我改一下吗？感激不尽啊 谢谢你

可不可以在代码指定对某一个表有效，固定的那个表 比如表A 或者表B  

感谢 感谢 

如果让系统菜单的切换和这个隐藏没有关系应该怎么改啊，感谢 感谢 

显示是隐藏了，只是系统菜单切换还是能打开，可以让系统的菜单切换不控制或者干扰窗口按钮吗？感谢 感谢