Dim UserIsRole As String = e.Form.Controls("UserIsRole").Value

   Dim cmd As New SQLCommand
    Dim dt As DataTable
     cmd.C
    cmd.CommandText = "SELECT * From {权限管理}"
    dt = cmd.ExecuteReader()
    If dt.DataRows.Count > 0 Then
        For Each dr As DataRow In dt.Select("用户名=\'"& _UserName & "\'And 角色 =\'"  & UserIsRole "\'")
                If dr.IsNull("列名") Then
                Tables(dr("表名")).Visible = Not dr("不可见")
                Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
            Else
                Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
                Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
            End If
       \' Next
    End If

除& UserIsRole 后要加&符号外，没看出有什么问题。

说说怎么没反映？