设计了一个窗口，窗口中关联的为Table控件，控件关联assetcard表;
在窗口中加了一个按钮控件（“删除”按钮），想当点击删除按钮时判断操作员的情况执行不同的操作；
具体如下：操作员角色定义了以下三种：浏览并编辑，浏览只编辑本部，浏览不编辑
操作员用户分组：定义的为部门；
下面写出来的语句只能实现如果是角色定义为"浏览并编辑“的，可以删除，其他两种”浏览只编辑本部，浏览不编辑“点击删除按钮则出现提示“无权操作”
想实现：如果操作员角色为“浏览并编辑”的点击删除按钮，可以执行删除操作；
如果操作员角色为"浏览只编辑本部"，则在点击删除按钮时，先判断准备删除的数据行是否是操作员对应的分组
即（User.Group）是否等于assetcard表中的（部门）列值，如果相等，执行删除操作，如果不等于，则提示“不能删除非本部门资料”，
如果操作员角色为“浏览不编辑”的点击删除按钮，则直接提示没有权限的提示；
请老师们帮助指导一下，下面语句应该如何修改才能实现想要的需求。
If User.IsRole("浏览并编辑") Then
Dim Result As DialogResult
Result = MessageBox.Show("确定要删除选定的资料吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("assetcard").Current.Delete
Else
DataTables("assetcard").Save()
End If
Else
MessageBox.show("你无权执行此项操作!")
End If
加好友 
发短信
Post By：2016/6/29 16:18:00 [显示全部帖子]
