[求助]工龄代码？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]工龄代码？

共有2259人关注过本帖树形打印复制链接主题：[求助]工龄代码？

老鼠

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00

[求助]工龄代码？ 发帖心情

Post By：2019/2/15 15:31:00 [只看该作者]

要求：没有离退日期的以当前计算机系统时间为依据计算工龄。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/15 15:34:00 [只看该作者]

比如

Select Case e.DataCol.Name
        Case "离退日期"
        If e.DataRow.IsNull("离退日期") Then
            Dim y,m,d As Integer
            Dim dt1 As Date = e.DataRow("入职日期")
            Dim dt2 As Date = Date.Today
            DateYMD(dt1,dt2,y,m,d)
            e.DataRow("工龄") = format(y, "00") & "年" & format(m, "00") & "月"
        Else
            Dim y,m,d As Integer
            Dim dt1 As Date = e.DataRow("入职日期")
            Dim dt2 As Date = e.DataRow("离退日期")
            DateYMD(dt1,dt2,y,m,d)
            e.DataRow("工龄") = format(y, "00") & "年" & format(m, "00") & "月"
        End If
End Select

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/15 15:35:00 [只看该作者]

需要重新计算的时候，重置列

DataTables("基础信息").DataCols("离退日期").RaiseDataColChanged()

老鼠

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：360 积分：3606 威望：0 精华：0 注册：2008/11/2 21:50:00

Post By：2019/2/15 15:53:00 [只看该作者]

首先感谢老师的指导，如果我还要加入一个入职日期为空时，工龄为空。又应当如何修改代码呢？

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/2/15 15:55:00 [只看该作者]

Select Case e.DataCol.Name
    Case "离退日期","入职日期"
        If e.DataRow.IsNull("入职日期") Then
            e.DataRow("工龄") = Nothing

        Else
            If e.DataRow.IsNull("离退日期") Then
                Dim y,m,d As Integer
                Dim dt1 As Date = e.DataRow("入职日期")
                Dim dt2 As Date = Date.Today
                DateYMD(dt1,dt2,y,m,d)
                e.DataRow("工龄") = format(y, "00") & "年" & format(m, "00") & "月"
            Else
                Dim y,m,d As Integer
                Dim dt1 As Date = e.DataRow("入职日期")
                Dim dt2 As Date = e.DataRow("离退日期")
                DateYMD(dt1,dt2,y,m,d)
                e.DataRow("工龄") = format(y, "00") & "年" & format(m, "00") & "月"
            End If
        End If
End Select

下一主题 >> << 上一主题

主题：[求助]工龄代码？