主题：[求助]關于可視權限設置

各位，大家麻煩可以幫忙看看，附近是說設計表達式不行。看怎么設計才是對的，謝謝

For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授權表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    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
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可見")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可編輯")
        End If
    Next
End If

 

 

此主题相关图片如下：可視設計不成功.jpg

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

請問這個是錯在哪個位置上？后面的& User.Name & "'" 要不要改為那個使用都的名字？

請指教

刪除了雙引號還是不行

此主题相关图片如下：圖1.png


此主题相关图片如下：圖2.jpg


此主题相关图片如下：圖3.jpg

圖1是設計的表達式

圖2是打鉤的可視圖

圖3是用那個用戶名登錄還是可以看到圖2上不可見的設計。

不知道哪個環節上有錯誤

有點甜老師，那個要怎么處理呢？設置成功了，但是用那個用戶名登錄進去還是可以看到我不給他看的列