主题：关于执行某一操作权限判断的问题

If User.IsRole("浏览并编辑")  Then
   
ElseIf User.IsRole("浏览只编辑本部") Then
    If  Tables("assetcard").Current("部门") <> user.Group Then
        msgbox("你不是本部,不能删除!")
        Return
    End If
ElseIf User.IsRole("浏览不编辑") Then
    MessageBox.show("你无权执行此项操作!")
    Return
End If

Dim Result As DialogResult
Result = MessageBox.Show("确定要删除选定的资料吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Tables("assetcard").Current.Delete
End If