主题：请教如何停止计算死亡人员的年龄呢？

If e.DataCol.name = "出生日期" orelse e.DataCol.name = "死亡时间" Then '如果更改的是出生日期列

    If e.DataRow.IsNull("出生日期") Then '出生日期是否为空

        e.DataRow("年龄") = Nothing '如果为空,则清除年龄

    Else '否则从出生日期列中提取出年龄

        Dim d As Date = Date.Today

        If e.DataRow.isnull("死亡时间") = False

            d = e.DataRow("死亡时间")

        End If

        Dim n As Integer= d.Year - e.DataRow("出生日期").Year

        If e.DataRow("出生日期").AddMonths(n*12) > d Then

            n = n -1

        End If

        e.DataRow("年龄") = n

    End If

End If