主题：[求助]可视化授权表中一个单元格中设置多列

For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "'" )

    If dr.IsNull("列名") Then

        Tables(dr("表名")).Visible = Not dr("不可见")

        Tables(dr("表名")).AllowEdit = Not dr("不可编辑")

    Else

        Dim nms() As String = dr("列名").Split(",")

        For Each nm As String In nms

            Tables(dr("表名")).Cols(nm).Visible = Not dr("不可见")

            Tables(dr("表名")).Cols(nm).AllowEdit = Not dr("不可编辑")

        Next

    End If

Next