主题：beforedeletedatarow

我在beforedeletedatarow表事件中，写了如下防止误删除的代码，但是实际情况有时候确实需要删除某些行，请问老师怎么处理好？需要删除的是表Tables(e.Form.Name & "_table2")订单明细表；Tables(e.Form.Name & "_table1")是订单表。

那什么条件下才能删除呢？

是设置了这样的角色，但是在beforedeletedatarow设置了这样的条件，怎么删除呢？

角色：订单删除

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