主题：关联表子表明细删除完后，同步删除

Dim pr As DataRow = e.DataRow.GetParentRow("订单") '获得此明细对应的订单

If pr IsNot  Nothing Then '如果有对应的订单

     If pr.GetChildRows("订单明细").count  = 1 Then '且这个订单的明细只有一个了

e.DataRow("某关联列") = nothing

           pr.Delete '删除这个订单

     End If

End If