主题：代码切换错误

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

感谢 感谢 

能帮我改改吗 感谢

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  

感谢 感谢 

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

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

如果把表隐藏了 

写了这个代码

If r IsNot Nothing Then

    Tables("名片夹").Position = Tables("名片夹").FindRow(r.DataRow)

End If  '窗口表与表格同步

此主题相关图片如下：显示.jpg

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

点击浏览该文件:显示隐藏档案.table

此主题相关图片如下：显示隐藏档案.jpg

问问 系统切换按钮有办法可以不干涩隐藏的功能吗  ？

如果我添加了企业和联系，怎么去刷新功能啊

比如添加来了企业，在窗口筛选没有显示出来，需要重新登陆打开才可以，感谢 感谢 

各位大神在指点指点