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