以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何判断基础档案被业务单据调用后不允许删除?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29841)

--  作者:jpguo
--  发布时间:2013/3/14 17:23:00
--  如何判断基础档案被业务单据调用后不允许删除?

如何判断基础档案被业务单据调用后不允许删除?

例如:客户档案中的张三客户,被订货单引用,怎么判断当用户在客户档案中删除“张三”时,提示当前用户已被订货单调用,不允许删除。


--  作者:xuezxz
--  发布时间:2013/3/14 22:20:00
--  

应该可以在删除前查找一下吧,结果不是空的就提示一下,取消操作


--  作者:有点甜
--  发布时间:2013/3/14 22:58:00
--  

如果有关联的话,可以看看:
http://www.foxtable.com/help/topics/2238.htm


 
没有关联的话,就先用Find判断一下:
 
If DataTables("订单明细").Find("订单编号 = \'" & e.DataRow("订单编号") & "\'") IsNot Nothing Then
    Dim s As String = "此订单存在订单明细, 是否确定要删除此订单及其订单明细?"
    If MessageBox.Show(s,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No
            e.Cancel= True
    End If
End If