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

If e.DataCol.Name = "出生日期" Then
    If e.NewValue Is Nothing Then

        e.DataRow("年龄") = Nothing
    Else
        Dim n As Integer = Date.Today.year - e.NewValue.Year
        If e.NewValue.AddMonths(n*12) > Date.Today Then
            n = n - 1
        End If

        e.DataRow("年龄") = n
    End If
End If