我通过用目录树形式授权.

例子的做法是针对每个表进行设置相应的代码.

考虑到太多表,还需要到每个表去设置代码,

我希望能够在全局表事件一次性设置需要授权的表进行设置.

以下代码,我应该如何修改?

If Functions.Execute("ShouQuan","Users","新增") Then

    e.Cancel = False

Else

    e.Cancel = True

    Messagebox.Show("您没有增加权限,请与管理员联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If