窗口表 Tables("EMS编辑_table2")，根据“审判程序”列值的不同，隐藏其他列；

现在仅第一段代码运行正确（就是“If e.Table.Current("审判程序") = "一审" Then...”），

后面两段代码把图中第三列以后的多层列都隐藏了，是什么原因？

 
此主题相关图片如下：image 1.jpg

窗口表的CurrentChanged事件代码：

If e.Table.Current Is Nothing Then Return    \'根据某列内容隐藏列
If e.Table.Current("审判程序") = "一审" Then
    For Each c As Col In Tables("EMS编辑_table2").Cols
        If c.name.startswith("二审_") Or c.name.startswith("行审_") Then
            c.Visible = False
        End If
    Next
ElseIf e.Table.Current("审判程序") = "二审" Then
    For Each c As Col In Tables("EMS编辑_table2").Cols
        If c.name.startswith("一审_") Or c.name.startswith("行审_") Then
            c.Visible = False
        End If
    Next
ElseIf e.Table.Current("审判程序") = "行审" Then
    For Each c As Col In Tables("EMS编辑_table2").Cols
        If c.name.startswith("一审_") Or c.name.startswith("二审_") Then
            c.Visible = False
        End If
    Next
Else
    Return
End If

你只是隐藏，没有还原，你需要还原的。

        If c.name.startswith("一审_") Or c.name.startswith("行审_") Then
            c.Visible = False

        Else

            c.Visible = True
        End If