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


  共有2086人关注过本帖树形打印复制链接

主题:[求助]工龄计算代码?

帅哥哟,离线,有人找我吗?
老鼠
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:366 积分:3658 威望:0 精华:0 注册:2008/11/2 21:50:00
[求助]工龄计算代码?  发帖心情 Post By:2018/4/26 21:44:00 [只看该作者]

求表Data ColChabged事件代码?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 21:46:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:366 积分:3658 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/4/26 21:55:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:捕获333.jpg
图片点击可在新窗口打开查看
不知道如何修改?是列属性有问题吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 22:00:00 [只看该作者]

Select Case e.DataCol.name
    Case "入伍日期"
        If e.DataRow.IsNull("入伍日期") Then
            e.DataRow("工龄") = Nothing
        Else
            Dim y,m,d As Integer
            DateYMD(cdate(e.DataRow("入伍日期")),Date.Today,y,m,d)
            e.DataRow("工龄") = y & "年" & m & "月"
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
老鼠
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:366 积分:3658 威望:0 精华:0 注册:2008/11/2 21:50:00
  发帖心情 Post By:2018/4/26 22:06:00 [只看该作者]

谢谢!可是我还想让月份能是两位数,又要如何修改代码呢?

 就是说格式:yy年mm月

[此贴子已经被作者于2018/4/26 22:06:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 22:31:00 [只看该作者]

Select Case e.DataCol.name
    Case "入伍日期"
        If e.DataRow.IsNull("入伍日期") Then
            e.DataRow("工龄") = Nothing
        Else
            Dim y,m,d As Integer
            DateYMD(cdate(e.DataRow("入伍日期")),Date.Today,y,m,d)
            e.DataRow("工龄") = format(y, "00") & "年" & format(m, "00") & "月"
        End If
End Select

 回到顶部