把这段改一下。
Select Case e.DataCol.name
Case "入职日期","离职日期"
If e.DataRow.IsNull("入职日期") Then
e.DataRow("服务天数") = Nothing
Else If e.DataRow.IsNull("出生日期") = False Then
Dim tl As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))
e.DataRow("年龄") = (Math.Round(tl.TotalDays)/365)
If e.DataRow.Isnull("离职日期") Then
Dim tp As TimeSpan = Date.today - CDate(e.DataRow("入职日期"))
e.DataRow("服务天数") = Math.Round(tp.TotalDays)
Else
Dim tt As TimeSpan = cdate(e.DataRow("离职日期")) - cdate(e.DataRow("入职日期"))
e.DataRow("服务天数") = math.round(tt.Totaldays)
End If
End If
End Select
[此贴子已经被作者于2012-12-28 17:46:18编辑过]
加好友 
发短信
Post By：2012/12/28 17:06:00 [显示全部帖子]
