Select Case e.DataCol.name
Case "基础信息_出生年月"
If e.DataRow.IsNull("基础信息_出生年月") Then
e.DataRow("基础信息_年龄") = Nothing
Else
Dim tp As TimeSpan = Date.today - CDate(e.DataRow("基础信息_出生年月"))
e.DataRow("基础信息_年龄") = Math.Round(tp.TotalDays / 365.2422,2)
End If
End Select
Select Case e.DataCol.name
Case "基础信息_工龄_入职时间"
If e.DataRow.IsNull("基础信息_工龄_入职时间") Then
e.DataRow("基础信息_工龄_入职年限_年") = Nothing
e.DataRow("基础信息_工龄_入职年限_月") = Nothing
e.DataRow("基础信息_工龄_入职年限_日") = Nothing
Else
Dim y,m,d As Integer
DateYMD(e.DataRow("基础信息_工龄_入职时间"),Date.Today,y,m,d)
e.DataRow("基础信息_工龄_入职年限_年") = y
e.DataRow("基础信息_工龄_入职年限_月") = m
e.DataRow("基础信息_工龄_入职年限_日") = d
End If
End Select