以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  录入窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153867)

--  作者:杨山东
--  发布时间:2020/8/26 9:21:00
--  录入窗口
老师,为什么子表增加数量,父表有变化。而子表删除一行,父表却没变化?
这个问题怎么解决?

谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:有点蓝
--  发布时间:2020/8/26 9:25:00
--  
到删除事件DataRowDeleting写代码处理

Dim pr As DataRow
Dim Filter As String = "[产品名称] = \'" & e.DataRow("产品名称") & "\' and 规格型号=\'" & e.DataRow("规格型号") & "\' and 开向=\'" & e.DataRow("开向") & "\'"

pr = DataTables("成品库存").Find(Filter)
If pr IsNot Nothing Then
    e.DataRow("产品名称") = Nothing
    DataTables("成品库存").DataCols("产品名称").RaiseDataColChanged(pr)
End If