If User.Type <> UserTypeEnum.Developer AndAlso User.Type <> UserTypeEnum.Administrator Then
TableCaptionVisible = False
End If
Select Case User.Type
Case User.Type = UserTypeEnum.Developer
For Each tb As Table In Tables
tb.visible = True
Next
Case User.Type = UserTypeEnum.Administrator
For Each tb As Table In Tables
tb.visible = False
Next
Tables("数据操作日志").visible = True
Case Else
Tables("数据操作日志").visible = False
End Select
现在开发者进去,也只能看得到数据操作日志了,其他的表都看不见了。![dvubb 图片点击可在新窗口打开查看](images/emot/em54.gif)