以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  beforedeletedatarow  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95374)
--  作者：lk15502
--  发布时间：2017/1/18 8:12:00
--  beforedeletedatarow
我在beforedeletedatarow表事件中，写了如下防止误删除的代码，但是实际情况有时候确实需要删除某些行，请问老师怎么处理好？需要删除的是表Tables(e.Form.Name & "_table2")订单明细表；Tables(e.Form.Name & "_table1")是订单表。
Dim r As Row = Tables(e.Form.Name & "_table1").Current
If r("订单状态") = "已审核" OrElse r("订单状态") = "部分排产" OrElse r("订单状态") = "全部排产" OrElse r("订单状态") = "部分配缸" OrElse r("订单状态") = "全部配缸" OrElse r("订单状态") = "部分入库" OrElse r("订单状态") = "全部入库" OrElse r("订单状态") = "部分出库" OrElse r("订单状态") = "全部出库" Then
    If e.DataRow.Isnull("下单量") = False OrElse e.DataRow.Isnull("计划") = False OrElse e.DataRow.Isnull("投坯") = False Then
        MessageBox.Show("不能删除!请谨慎操作!")
        e.Cancel = True
    End If
End If
--  作者：有点蓝
--  发布时间：2017/1/18 8:49:00
--  
那什么条件下才能删除呢？

最简单的加一个全局变量，平时设置为false，需要无条件删除地时候设置为true

事件代码第一行判断

if 全局变量 = true then return

这样虽然可以实现，但是已经破坏了整个业务的逻辑性。应该考虑使用权限来判断，有某种权限的角色可以任意删除等等
--  作者：lk15502
--  发布时间：2017/1/18 9:03:00
--  
是设置了这样的角色，但是在beforedeletedatarow设置了这样的条件，怎么删除呢？
--  作者：lk15502
--  发布时间：2017/1/18 9:03:00
--  
角色：订单删除
--  作者：有点色
--  发布时间：2017/1/18 10:10:00
--  

Dim r As Row = Tables(e.Form.Name & "_table1").Current
If r("订单状态") = "已审核" OrElse r("订单状态") = "部分排产" OrElse r("订单状态") = "全部排产" OrElse r("订单状态") = "部分配缸" OrElse r("订单状态") = "全部配缸" OrElse r("订单状态") = "部分入库" OrElse r("订单状态") = "全部入库" OrElse r("订单状态") = "部分出库" OrElse r("订单状态") = "全部出库" Then
    If e.DataRow.Isnull("下单量") = False OrElse e.DataRow.Isnull("计划") = False OrElse e.DataRow.Isnull("投坯") = False Then
        If User.Roles Like "*订单删除*"  Then
            Dim Result As DialogResult
            Result = MessageBox.Show("你确定要删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If result <> DialogResult.Yes Then
                e.cancel = True
            End If
        Else
            MessageBox.Show("不能删除!请谨慎操作!")
            e.Cancel = True
        End If
    End If
End If