If e.DataRow.Isnull("统计日期") = False Then
Select Case e.DataCol.name
Case "工作时间"
If e.DataRow.IsNull("工龄") Then
e.DataRow("工龄") = Nothing
Else
e.DataRow("工龄") = e.DataRow("统计日期").Year - e.DataRow("工作时间").Year
End If
Case "出生日期"
If e.DataRow.IsNull("出生日期") Then
e.DataRow("年龄") = Nothing
Else
e.DataRow("年龄") = e.DataRow("统计日期").Year - e.DataRow("出生日期").Year
End If
End Select
End If