主题：关联表中的数据刷新

父表有一列名“fa piao张数”，是根据子表对应的fa piao号码的个数生成的，下面的代码是子表fa piao号码发生变化时，生成父表的fa piao张数。

Select Case e.DataCol.Name
    Case "fa piao号码"
        Dim cnt As Integer
        Dim pdr As DataRow = e.DataRow.GetParentRow("fa piao首页")
        Dim fdr As DataRow = e.DataTable.Find("报销单号 = '" & e.DataRow("报销单号") & "'", "_Sortkey")
        If pdr IsNot Nothing Then
            If fdr IsNot Nothing Then
                cnt = DataTables("fa piao明细").Compute("Count([fa piao号码])","报销单号= '" & e.DataRow("报销单号") &"' ")
                pdr("fa piao张数") = cnt
            Else
                pdr("fa piao张数") = 0
            End If
        End If
End Select

问题：如果我删除子表对应的一条记录，即fa piao个数发生了变化（即个数减少了1），如何才能刷新父表fa piao张数的数据？谢谢！