参考了http://www.foxtable.com/webhelp/topics/1600.htm还需要增加一个,某用户分组只看查看编辑本分组添加的内容,别的分组添加的内容完全看不到。
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:qq截图20200209055221.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-2/2020295535355651.png)
下面代码是按照开头写的链接弄的,然后需要加上截图最后一项,也就是可以设置某表格,内容只能是添加数据的分组内用户可见,要怎么写代码。
但是不明白要怎么做到这个可视化管理里面来。
多麻烦了,谢谢
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.Group & "'" )
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