以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样删除父表中的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102468)

--  作者:peibaomin
--  发布时间:2017/6/20 13:43:00
--  怎样删除父表中的数据

有三个表其中一个表是“客户表”字段有(客户姓名、客户手主机号、第二手机号、、第三手机号、商户名称、地址、备注等字段)

另一个表是“流量卡表”字段有(类型、流量卡号、进货日期、是否绑定客户、绑定时间、流量卡有效期至、绑定客户姓名、进货价格、销售价格、更换日期、是否过期、是否可以续费、备注等字段)
再一个表是“机具库存表”字段有(机具型号、机具条码、机具是否绑定、流量卡号码、客户姓名、备注等字段)

建立关系是主表是“客户表”子表示分别是“流量卡表”“机具库存表”

 

关键是删除“客户表”中记录的时候,如果该条数据已经和“流量卡表”和“机具库存表”绑定了,就会连同“流量卡表”和“机具库存表”中绑定的记录全给删除了我想实现再删除之前先判断一下是否绑定如果是先将绑定的有关数据一一解绑后再删除夫表中的数据,子表“流量卡表”和“机具库存表”中的数据只是解绑不删除数据

[此贴子已经被作者于2017/6/20 22:55:05编辑过]

--  作者:有点色
--  发布时间:2017/6/20 14:05:00
--  

 设置一下关联,就不会删除了

 

http://www.foxtable.com/webhelp/scr/0091.htm

 


--  作者:peibaomin
--  发布时间:2017/6/20 14:16:00
--  

我是想用代码来实现对于删除夫表记录的时候,如果该条记录已于子表有绑定的记录全部解绑,再删除夫表记录。怎么实现?


--  作者:有点色
--  发布时间:2017/6/20 14:40:00
--  

DataRowDeleting事件

 

DataTables("流量卡表").ReplaceFor("是否绑定客户", False, "绑定客户姓名 = \'" & e.DataRow("客户姓名") & "\'")

DataTables("流量卡表").ReplaceFor("绑定客户姓名", nothing, "绑定客户姓名 = \'" & e.DataRow("客户姓名") & "\'")

 

DataTables("机具库存表").ReplaceFor("机具是否绑定", False, "客户姓名 = \'" & e.DataRow("客户姓名") & "\'")

DataTables("机具库存表").ReplaceFor("客户姓名", nothing, "客户姓名 = \'" & e.DataRow("客户姓名") & "\'")


--  作者:裴保民
--  发布时间:2017/6/20 17:49:00
--  
点击删除按钮还是子表的数据一起给删除了在一个就是在删除之前能做一个判断吗?来提醒客户此客户已有机具或流量卡绑定是否解绑的操作选择是的时候执行解绑后再删除父表记录,如果选否就不执行如何操作。(注明:这些都是在窗体中单击删除按钮来完成的)
[此贴子已经被作者于2017/6/20 17:58:30编辑过]

--  作者:有点色
--  发布时间:2017/6/20 17:51:00
--  

1、你删除按钮的代码怎么写?

 

2、你DataRowDeleting事件的代码怎么写?


--  作者:裴保民
--  发布时间:2017/6/20 18:02:00
--  
删除按钮的代码是直接写删除命令
 DataRowDeleting事件的代码是直接赋值您代码过去的

--  作者:有点色
--  发布时间:2017/6/20 18:05:00
--  

去掉同步删除的勾选设置

 

http://www.foxtable.com/webhelp/scr/0091.htm


--  作者:裴保民
--  发布时间:2017/6/20 18:14:00
--  
如何在删除父表数据之前做一个判断,来提醒客户此客户已有机具或流量卡绑定是否解绑的操作选择是的时候执行解绑后再删除父表记录,如果选否就不执行如何操作。(注明:这些都是在窗体中单击删除按钮来完成的)
--  作者:有点蓝
--  发布时间:2017/6/20 20:07:00
--  
If MessageBox.Show("此客户已有机具或流量卡绑定,是否删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
    \'删除代码\'
End If