主题：关于删除行的一些问题

有两个表 A是客户信息 B是销售订单  想实现如下 功能 如果客户已经生成了订单 则无法删除该客户 除非该客户的订单全部删除  我在beforedeletedatarow里设置了 如下代码

Dim q As DataRow = DataTables("销售订单").Find("[客户信息_名称] = '" & e.DataRow("客户名称") & "'")
If q IsNot Nothing Then
 MessageBox.Show("该客户已经产生订单无法删除!","提示",MessageBoxButtons.OK)
 e.Cancel = True

   
End If

删除按钮的代码如下

Dim Result As DialogResult
Dim r As Row = Tables("客户信息").Current
If r IsNot Nothing Then
 Result = MessageBox.Show("确认删除?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.no Then
    Return
Else
Tables("客户信息").Current.Delete
End If
End If

现在发下一个问题 只要有一个客户产生了订单 其他没有产生订单的客户删除时也是提示该客户已经产生订单无法删除 

请教诸位高手 代码哪里有问题