以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  删除代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98978)
--  作者：longyanlin
--  发布时间：2017/4/10 16:35:00
--  删除代码
请问老师，窗口中用一个删除按钮来删除当前“订单表”的行，如果订单表的子表“订单表.订单明细表”里面只要有一行是审核状态，则该订单行不能删除，怎样写代码，请教
--  作者：有点色
--  发布时间：2017/4/10 16:44:00
--  

 beforeDeleteDataRow事件

 

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

[此贴子已经被作者于2017/4/10 16:44:25编辑过]
--  作者：longyanlin
--  发布时间：2017/4/10 17:51:00
--  

自己鼓捣的代码：

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

感觉还方便些，呵呵，但不知道会不会有问题。谢谢老师!
--  作者：有点色
--  发布时间：2017/4/10 18:21:00
--  
 尽量用2楼代码