主题：繁琐的审批流程，简单的权限管理

主表：审批流程

用户名   角色名      角色权限

0000    项目开发   操作全部流程

Select e.Col.Name

    Case "事项","确认"

        If e.Row("审核") = True Then

            e.Cancel = True

        End If

    Case "审核"

        If e.Row.IsNull("确认") OrElse e.Row("确认") = False OrElse e.Row("审批") = True Then

            e.Cancel = True

        End If

    Case "审批"

        If e.Row.IsNull("审核") OrElse e.Row("审核") = False Then

            e.Cancel = True

        End If

End Select

权限由管理员设置，用户名、角色名及其权限的变动与事件代码无关。