主题：求思路

Case "客户管理"

        If _userroles.Contains("系统查看") = True OrElse _usergroup = "贸易部" OrElse _userroles.Contains("订单管理") = True Then

            MainTable = Tables("客户表")

            Forms("客户管理").show

            DataTables("客户表").loadfilter = "[_Identify] Is Null"

            DataTables("客户表").load

        Else

            messagebox.show("您没有此操作权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

            Return

        End If