我在项目事件LoadUserSetting中设置加下代码怎么切换用户进去权限不起作用,老师帮我看看,是那不对
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
从新打开就出现下面弹出
[此贴子已经被作者于2022/6/16 9:40:47编辑过]