以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]多表权限问题 在线等 急用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169321)
--  作者：18107532666
--  发布时间：2021/6/11 18:11:00
--  [求助]多表权限问题 在线等 急用

BeforeDeleteDataRow


Dim dt As DataTable = DataTables("南崇铁路物资逐日进场台账")
Dim dr As DataTable = DataTables("加油台账")
If e.DataRow.IsNull("材料名称") Or e.DataRow.IsNull("设备名称及编号")  Then
Else
    If User.Group = "录入员"  Or User.Group = "部长" Or User.Group = "计划员"
        e.Cancel = True
        Messagebox.show("您无权删除已存盘数据!如需修改请联系物资台账管理员", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If
End If
设备名称及编号  是加油台账的列
材料名称  是南崇物资逐日进场台账的列

想指定某几个表 某列内容不为空时   不能删除  总出错
[此贴子已经被作者于2021/6/11 18:27:25编辑过]
--  作者：18107532666
--  发布时间：2021/6/11 21:48:00
--  
为什么没人答呢
--  作者：有点蓝
--  发布时间：2021/6/12 9:19:00
--  
If DataTables("南崇铁路物资逐日进场台账").find("编号=\'" & e.datarow("编号") & "\' and 材料名称 is not null") isnot nothing andalso DataTables("加油台账").find("编号=\'" & e.datarow("编号") & "\' and 设备名称及编号 is not null") isnot nothing  Then
   If User.Group = "录入员"  Or User.Group = "部长" Or User.Group = "计划员"
        e.Cancel = True
        Messagebox.show("您无权删除已存盘数据!如需修改请联系物资台账管理员", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If
end if