主题：年龄不自动更新

老师好，我表中自动计算年龄，代码写在DataColChanged事件中，发现出生日期列不变化，年龄就不计算。

我想让年龄保持时时更新，想把代码放在AfterLoad中怎么写代码呢？

 

If e.DataCol.Name = "出生日期" Then
    If e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
        e.DataRow("年龄") = Nothing '则清空年龄
    Else
        '否则计算年龄
        e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year
    End If
End If

到afteropenproject事件判断如果是1月1日，就重置一下列即可，这种计算方式1年内都不可能有变化的