以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据关联批量删除就会有报错 求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184851)

--  作者:yifan3429
--  发布时间:2023/1/10 2:11:00
--  数据关联批量删除就会有报错 求助
 Dim dr As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("订单_产品清单").Find("[产品订购ID] = \'" & Tables("订单_产品主表").current("产品订购ID") & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing   
    MessageBox.Show("该产品下还有清单数据,请先处理!.", Vars("昵称"))
    e.Cancel = True
    e.Continue = False
End If

单行删除是正常的,同时删除多行就会有报错


--  作者:有点蓝
--  发布时间:2023/1/10 8:36:00
--  
报什么错?代码在哪个表的哪个事件?