主题：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