主题：设置表关联问题

 子表 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 If
End If

 子表 DataRowDeleted 事件

If vars("flag") Then
    vars("fdr").delete
End If