主题：权限判定

请教

表“物资领用权限”

 
此主题相关图片如下：捕获.jpg

想在“物资采购明细表”中实现，

若表“物资采购明细表”中“物资说明”=表“物资领用权限”中“物资领用权限”，同时

用户user=表“物资领用权限”中“姓名”，才能够编辑逻辑列“领用”，否则逻辑列锁定并提示“领用权限错误！”

If e.DataCol.name = "领料情况_分机组" OrElse e.DataCol.name = "物资说明" Then
    Dim fdr As DataRow = DataTables("物资领用权限").find("姓名='" & user.name & "' and 物资领用权限='" & e.DataRow("物资说明") & "'")
    If fdr Is Nothing Then
        msgbox("无领用权限!")
        e.cancel = True
    End If
End If

没反应

锁定是没问题，有的行会显示提示信息，但有的行没有，什么原因？

If e.DataCol.name = "领料情况_分机组" OrElse e.DataCol.name = "物资说明" Then Dim fdr As DataRow = DataTables("物资领用权限").find("姓名='" & user.name & "' and 物资领用权限='" & e.DataRow("物资说明") & "'") If fdr Is Nothing Then msgbox("无领用权限!") e.cancel = True End If End If   增加行也提示“无领用权限”

表“领料清单”中datacolchanging

If e.NewValue <> e.OldValue AndAlso (e.DataCol.name = "审核" OrElse e.DataCol.name = "物资说明") Then
    Dim fdr As DataRow = DataTables("物资领用权限").find("审批人姓名='" & user.name & "' and 物资领用权限='" & e.DataRow("物资说明") & "'")
    If fdr Is Nothing Then
        msgbox("无审批权限!")
        e.cancel = True
    End If
End If

现在直接在“领料清单”中增加行是没有问题，不会提示“无审批权限”

但有一部分行是在“物资采购明细表”中点击“领料”后自动增加行到“领料清单”里面去的，这时还是会提示“无审批权限”

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生产采购管理系统.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:生产采购管理系统.rar

823148

以账户“徐耀”登录，密码888，在“物资采购明细”中，第一行为例，点击“领料情况-分机组”，会在“领料清单”中自动增加一行，但会显示“无审批权限”

但在“领料清单”中直接增加行，则不会显示

 

另外点击“领料情况-分机组”，在领料清单中“物资说明”不会自动生成是什么原因？其他值都没问题！

解决了！谢谢！