产品信息表datacolchanging事件
if e.datacol.name = "产品名称" andalso e.newvalue is nothing then
if datatables("库存信息表").find("产品名称='" &e.oldvalue & "'") isnot nothing then
msgbox("有库存，不能删除")
e.cancel = true
end if
end if
产品信息表datacolchanged事件
if e.datacol.name = "产品名称"
dim dr as datarow = datatables("库存信息表").find("产品名称='" & e.oldvalue & "'")
if dr isnot nothing then
dr("产品名称") = e.newvalue
else
dr = datatables("库存信息表").find("产品名称='" & e.newvalue & "'")
if dr is nothing then
dr = datatables("库存信息表").addnew
dr("产品名称") = e.newvalue
end if
end if
end if
BeforeDeleteDataRow事件
if datatables("库存信息表").find("产品名称='" & e.datarow("产品名称") & "'") isnot nothing then
msgbox("有库存，不能删除")
e.cancel = true
end if
建议还是使用产品编码进行关联，因为如果还有采购订单、销售订单、调拨单等等各种明细也有这个产品名称，难道全部都要改里面的产品名称？这个是不合理的
加好友 
发短信
Post By：2019/4/27 10:27:00 [显示全部帖子]
