主题：[求助]如何实现计算工龄

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:统.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:统.table

显示文件版本过高，无法打开啊！

你升级到最新版即可打开。

datacolchanged事件代码

 

If e .DataCol . Name = "身份证号码" Then
    If e .DataRow . IsNull( "身份证号码" ) Then
        e .DataRow ( "出生日期" ) = Nothing
        e .DataRow ( "性别") = Nothing
    Else
        e .DataRow ( "出生日期" ) = ReadBirthday ( e. DataRow ("身份证号码" ))
        e .DataRow ( "性别") = ReadSex (e .DataRow ( "身份证号码" ))
    End If
End If

Select Case e.DataCol.name
    Case "入职时间","离职时间"
        If e.DataRow.IsNull("入职时间") Then
            e.DataRow("工龄") = Nothing
        Else
            If e.DataRow.IsNull("离职时间") Then
                Dim tp As TimeSpan = Date.today - CDate(e.DataRow("入职时间"))
                e.DataRow("工龄") = Math.Round(tp.TotalDays / 365.2422,2)
                e.DataRow("员工类型") = "在职"
            Else
                Dim tp As TimeSpan = cdate(e.DataRow("离职时间")) - CDate(e.DataRow("入职时间"))
                e.DataRow("工龄") = Math.Round(tp.TotalDays / 365.2422,2)
                e.DataRow("员工类型") = "离职"
            End If
        End If
End Select

If e.DataCol.Name = "离职时间" Then
    If e.DataRow.isnull("离职时间") = False Then
        e.DataRow("员工类型") = "离职"
    Else
        e.DataRow("员工类型") = "在职"
    End If
End If

已经可以打开了！太感谢了！我冒昧问一下，我想把DataColChanged这个写入事件中，可不知道要加在哪里！主要想实现如果到了明年，需要重新计算年龄、工龄列，但是除非你重新输入出生日期，否则上面的代码是不会重算年龄的。触发DataColChanged，效果就像你重新输入了出生日期和入职时间一样

做一个按钮，重置列即可

 

http://www.foxtable.com/help/topics/1587.htm

 

 

 

谢谢！