实时隐形或显示列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "显非" AndAlso e.DataRow("显非") = False Then
    For Each t As Table In Tables
        If t.DataTable.name = "A表" Then
            t.Cols("非计划").Visible = False
            t.Cols("非计划厂家").Visible = False
            t.Cols("非计划生产企业").Visible = False
            t.Cols("非计划采购价").Visible = False
        End If
    Next

Else
    For Each t As Table In Tables
        If t.DataTable.name = "A表" Then
            t.Cols("非计划").Visible = True
            t.Cols("非计划厂家").Visible = True
            t.Cols("非计划生产企业").Visible = True
            t.Cols("非计划采购价").Visible = True
        end if
    Next

End If

主题：实时隐形或显示列