主题：[讨论]加载表时提示列不存在

Dim a() As String = {"备注","附件","产品范围"}

For i As Integer = 0 To a.Length - 1

    If e.Table.Cols.Contains(e.Table.Cols(a(i))) = True Then

        Dim b As Col = e.Table.Cols(a(i))

        If e.NewRange.ColSel = b.Index

            b.OpenWindow

        Else

            b.CloseWindow

        End If

    End If

Next