比如开发者加载所有表,
角色1,加载ab表,
角色2,加载bc表,
以下内容为程序代码:
1 Select Case e.User.Roles '只有开发者才加载表C
2 Case e.User.IsRole("业务")
3 MessageBox.Show(1)
4 If e.DataTableName = "Z_授权表" Then
5 MessageBox.Show(2)
6 e.Cancel = True
7
8 End if
9 End Select
假设这些都是外部表：
select case e.DataTableName
case "a"
if e.User.IsRole("角色2") then
e.cancel=true
endif
case "c"
if e.User.IsRole("角色1") then
e.cancel=true
endif
end select