主题：数据关联批量删除就会有报错 求助

 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