If Forms("产品尺寸制作").Opened Then

    If e.Table.Current IsNot Nothing AndAlso vars("tname") > "" Then

        SystemReady = False

        For Each c As Col In Tables(vars("tname")).Cols

            c.Visible = False

        Next

        

        If e.Table.Current.IsNull("商品信息_尺寸排版") Then

            For Each c As object In Forms("产品尺寸制作").Controls("Panel1").children

                c.Checked = False

            Next

        Else

            For Each c As object In Forms("产品尺寸制作").Controls("Panel1").children

                If Tables(vars("tname")).Cols.Contains(c.Text) Then

                    Dim flag As Boolean = e.Table.Current("商品信息_尺寸排版").Contains(c.Text)

                    Tables(vars("tname")).Cols(c.Text).Visible = flag

                    c.Checked = flag

                Else

                    msgbox("不存在" & c.Text & "列")

                End If

            Next

            

        End If

        SystemReady = True

    End If

End If

为什么加上这一段代码后Table1显示行号列设置为不显示没什么用呢？

如果要设置不显示用代码应该怎么改啊！