子表 DataRowDeleting 事件
Dim fdr As DataRow = e.DataRow.GetParentRow("表A")If fdr IsNot Nothing Then If fdr.GetChildRows("表B").count = 1 Then vars("fdr") = fdr vars("flag") = True Else vars("flag") = False End IfEnd If
子表 DataRowDeleted 事件
If vars("flag") Then vars("fdr").deleteEnd If