找到原因了是做天做了权限这代码，下面加紫色底颜色这代码有问题，把上面涂颜色代码删了又可以了
然后项目事件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
加好友 
发短信
Post By：2024/5/20 18:30:00 [只看该作者]
