[浏览完整版]
标题：[求助]授权
1楼
苏州老街 发表于：2024/12/8 12:34:00老师好
此主题相关图片如下：授权.png
[此贴子已经被作者于2024/12/8 18:29:20编辑过]
2楼
苏州老街 发表于：2024/12/8 18:34:00
3楼
有点蓝 发表于：2024/12/8 20:23:00使用find到权限表里查询：http://www.foxtable.com/webhelp/topics/0396.htm
Dim dr As DataRow
dr = DataTables("权限表").Find("姓名 ='李四' and 表名='某表' and 角色='审核'")
If dr Is Nothing Then
msgbox("没有权限")
dr = DataTables("权限表").Find("姓名 ='李四' and 表名='某表' and 角色='审核'")
If dr Is Nothing Then
msgbox("没有权限")
else
msgbox("有权限")
End If
End If
4楼
苏州老街 发表于：2024/12/9 12:21:00老师，反审核没有权限，下面代码不会修改。谢谢
If User.IsRole("录入") =False Then '如果审批人列不为空
e.Cancel = True '则禁止编辑
End If
If e.Row("审核人") <> "" Then
e.Cancel = True '则禁止编辑
En d If
5楼
有点蓝 发表于：2024/12/9 13:04:00dr = DataTables("权限表").Find("姓名 ='李四' and 表名='某表' and 角色='反审核'")
6楼
苏州老街 发表于：2024/12/9 15:22:00If Tables("入库.入库明细") .Rows.count = 0 Then
MessageBox.Show("没有可反审项!")
Return
End If
老师，反审核没有用。
Dim dr As DataRow
dr = DataTables("授权表").Find("姓名 ='李四' and 表名='入库.入库明细' and 角色='反审核'")
If dr Is Nothing Then
msgbox("没有权限")
Else
msgbox("有权限")
End If
For Each r As Row In Tables("入库.入库明细").rows ' 当前窗口表解锁
r.locked = False
Next
7楼
有点蓝 发表于：2024/12/9 15:28:00登录的用户是李四吗
Dim dr As DataRow
dr = DataTables("授权表").Find("姓名 ='李四' and 表名='入库.入库明细' and 角色='反审核'")
If dr Is Nothing Then
msgbox("没有权限")
Else
msgbox("有权限")
For Each r As Row In Tables("入库.入库明细").rows ' 当前窗口表解锁
r.locked = False
Next
End If
8楼
苏州老街 发表于：2024/12/9 19:00:00老师，这下面代码搞不明白。
If Tables("入库") .Rows.count = 0 OrElse Tables("入库.入库明细") .Rows.count = 0 Then
MessageBox.Show("没有可审核内容!")
Return
End If
Dim dr As DataRow
dr = DataTables("授权表").Find("姓名 ='李四' and 表名='入库.入库明细' and 角色='审核'")
If dr Is Nothing Then
’If U ser.IsRole ("审核") Then
Tables("入库").Current("审核人") = User.Name
Tables("入库").Current("审核日期") = Date.now
Tables("入库.入库明细"). Current.Save()
Tables("入库").Current.Save()
Else
MessageBox.show("你无审核权限!")
End If
9楼
有点蓝 发表于：2024/12/9 20:13:00如果是从授权表查询权限的，和黄色代码没有什么关系
10楼
苏州老街 发表于：2024/12/9 20:45:00老师，通过审核按钮审核列自动勾选审核人、审核日期列自动填写。
Dim dr As DataRow
dr = DataTables("授权表").Find("(',' + 姓名 + ',' like '%," & _UserName & ",%' or ',' + 用户分组 + ',' like '%," & _Usergroup & ",%') and 表名='入库.入库明细' and 角色='审核'")
If dr Is Nothing Then
Tables("入库").Current("审核人") = U s er.Name
Tables("入库").Current("审核日期") = Date.now
Tables("入库.入库明细"). Current.Save()
Tables("入库").Current.Save()
'Else
MessageBox.show("你无审核权限!")
'End If
'---------------------------
else
msgbox("有权限")
End If