主题：datarowdeleting事件出错？

如题，近帮助中的说明在“订单明细”表的datarowdeleting中用了如下代码：

Dim pr As DataRow = e.DataRow.GetParentRow("订单") '获得此明细对应的订单
If pr IsNot  Nothing Then '如果有对应的订单
    If pr.GetChildRows("订单明细").count  = 1 Then '且这个订单的明细只有一个了
        pr.Delete '删除这个订单
    End If
End If

可删除订单明细表中最后一行时却出现下面的错误提示：

此主题相关图片如下：360截图20130317225246994.jpg

请教大家是什么原因？

谢谢！