主题：删除代码

请问老师，窗口中用一个删除按钮来删除当前“订单表”的行，如果订单表的子表“订单表.订单明细表”里面只要有一行是审核状态，则该订单行不能删除，怎样写代码，请教

 beforeDeleteDataRow事件

 

Dim fdr As DataRow = DataTables("子表").Find("第一列 = '" & e.DataRow("第一列") & "' and 审核 = true")
If fdr IsNot Nothing Then
    msgbox("存在子表数据,不能删除")
    e.cancel = True
End If

自己鼓捣的代码：

If Tables("销售退货单.销售退货明细").current("审核") = True Then '如果审批人列不为空
   
    MessageBox.Show("请领导取消审核后方能删除")
 Else
  Tables("销售退货单.销售退货明细").Current.Delete
End If

感觉还方便些，呵呵，但不知道会不会有问题。谢谢老师!

 尽量用2楼代码