主题：跨表如果删除一行另外一个表那行的逻辑改变怎么做？

出库明细_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， 代码要怎么写