根据论坛上的一个案例，仿照做了一个例子，但是授权函数的操作总是错误，不知道错在哪里？请大家帮助

前提：这个是系统自带的用户管理

shouquan函数

If User.Type <> UserTypeEnum.User Then \' 如果是开发者或者管理员
    Return True \'则具备所有权限
End If

Dim dt As DataTable = DataTables("A10流程权限及进度状态")
Dim dr As DataRow
dr = dt.Find("模块 = \'" & args(0) & "\' And 流程 = \'" & args(1) & "\'" )
If dr.IsNull("角色") = False Then
    Dim nms() As String = dr("角色").Split("/")
    For Each nm As String In nms
        If nm = User.group Then \'如果授权用户包括登录用户所属的分组或其用户名
            Return True \'返回True
        End If
    Next
End If
Return False

有两张表：