beforedeletedatarow - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在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

主题：beforedeletedatarow