- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]關于可視權限設置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60208)
-- 发布时间：2014/11/20 10:12:00
-- [求助]關于可視權限設置
各位，大家麻煩可以幫忙看看，附近是說設計表達式不行。看怎么設計才是對的，謝謝
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
-- 发布时间：2014/11/20 10:13:00
--
For Each dr As DataRow In DataTables("授權表").Select("用戶名= \'" & User.Name & "\'" )
-- 发布时间：2014/11/20 10:20:00
-- [求助]關于可視權限設置
For Each dr As DataRow In DataTables("授權表").Select("用戶名= \'" & User.Name & "\'" )
請問這個是錯在哪個位置上？后面的& User.Name & "\'" 要不要改為那個使用都的名字？
請指教
-- 发布时间：2014/11/20 10:23:00
--
你多写了一个双引号
-- 发布时间：2014/11/20 10:28:00
-- [求助]關于可視權限設置
刪除了雙引號還是不行
-- 发布时间：2014/11/20 10:29:00
--
刪除了雙引號還是不行
现在又什么问题？
For Each dr As DataRow In DataTables("授權表").Select("用戶名= \'" & User.Name & "\'" )
-- 发布时间：2014/11/20 10:42:00
-- [求助]關于可視權限設置
此主题相关图片如下：圖1.png
此主题相关图片如下：圖2.jpg
此主题相关图片如下：圖3.jpg
圖1是設計的表達式
圖2是打鉤的可視圖
圖3是用那個用戶名登錄還是可以看到圖2上不可見的設計。
不知道哪個環節上有錯誤
-- 发布时间：2014/11/20 10:53:00
-- [求助]關于可視權限設置
有點甜老師，那個要怎么處理呢？設置成功了，但是用那個用戶名登錄進去還是可以看到我不給他看的列
-- 发布时间：2014/11/20 11:04:00
--
例子发上来