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
If e.DataRow.IsNull("离职日期")
DateYMD(e.DataRow("入职日期"),Date.Today,y,m,d)
Else
DateYMD(e.DataRow("入职日期"),e.DataRow("离职日期"),y,m,d)
End If
e.DataRow("工龄_年") = y
e.DataRow("工龄_月") = m
e.DataRow("工龄_日") = d
End If
End Select
If e.DataCol.Name = "离职日期" Then
If e.DataRow.isnull("离职日期") = False Then
e.DataRow("状态") = "离职"
Else
e.DataRow("状态") = "在职"
End If
End If
加好友 
发短信
Post By：2019/7/20 10:41:00 [显示全部帖子]
