主题：[求助]帮忙看看这个求年龄的代码。（已解决）

有两列：分别是 出生日期 年龄
代码放在DataColChanged事件上
If e.DataCol.Name = "出生日期" Then
If e.NewValue Is Nothing Then
Return
Else
Dim n As Integer = Date.Today.year - e.NewValue.Year
If e.NewValue.AddMonths(n*12) > Date.Today Then
n = n - 1
e.DataRow("年龄") = n
End If
End If
End If

输入出生日期后不能自动出现年龄，求解。

谢谢。解决问题。