以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  跨表如果删除一行另外一个表那行的逻辑改变怎么做？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115326)
--  作者：jolon
--  发布时间：2018/3/5 12:01:00
--  跨表如果删除一行另外一个表那行的逻辑改变怎么做？

出库明细_DataColChanged

 

If e.DataCol.Name = "批号" Then \'如果内容发生变动的是品名列

    Dim dr As DataRow \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr

    dr = DataTables("库存").Find("[批号] = \'" & e.NewValue & "\'")

    If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing

        dr("是否出库")  = True

    End If

End If

 



当明细删除的时候，是否出库改为false， 代码要怎么写
--  作者：有点甜
--  发布时间：2018/3/5 12:06:00
--  

DataRowDeleting事件

 

    Dim dr As DataRow \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr

    dr = DataTables("库存").Find("[批号] = \'" & e.DataRow("批号") & "\'")

    If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing

        dr("是否出库")  = False

    End If