主题：[求助]表格当中几列扩展属性引出的问题

在表属于AfterSelChange事件这样改，对不对：

Dim c As Col = e.Table.Cols(e.NewRange.ColSel)

Select Case c.name

    Case "产品图片", "工程文件_图纸", "工程文件_N文件"

        If DataTables("授权").Find("用户名='" & User.Name & "' and 表名='"  & "' and 不可见=false and 不可编辑=true and (列名 is null  or 列名='" & c.Name & "')") IsNot nothing Then

            Forms(c.Name).Show

        End if

End Select

这样修改时，会出错了 。