主题：[求助]关联表空值的判断

用DataColChanging事件  才有e.datarow

我是用窗口控件输入，有办法吗？

我是用窗口控件输入，有办法吗？

窗口输入也一样，设置在控件的Enter事件中：
 
Dim r As Row = Tables("订单").Current
e.Sender.ReadOnly = BooleanEnum.False
if r IsNot Noting Then
   For Each dr As DataRow  in r.DataRow.getChildRows("订单明细")
       if dr.Isnull("单价") = False Then
           e.Sender.ReadOnly = BooleanEnum.True
           Exit For
       End If
     Next
End if

For Each dr As DataRow  In e.DataRow.getChildRows("订单明细")
   If dr.Isnull("单价") = False Then
       e.Cancel = True
       MessageBox.Show("在订单明细表发现有以件计价的产品,禁止双重计价!")
       Exit For
   End If
Next

为什么会提示2次?
MessageBox.Show("在订单明细表发现有以件计价的产品,禁止双重计价!")