Foxtable(狐表)用户栏目专家坐堂 → [求助]缴费停止累计代码


  共有2842人关注过本帖平板打印复制链接

主题:[求助]缴费停止累计代码

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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/23 9:13:00 [只看该作者]

这个意思?

Select Case e.DataCol.Name
    Case "养老保险日期"
        If e.DataRow.IsNull("养老保险日期") Then
            e.DataRow("养老已缴") = Nothing
        Else
            Dim y,m,d As Integer
            Dim d2 As Date = Date.Today
            If e.DataRow.IsNull("离职日期") = False Then
                d2 = e.DataRow("离职日期")
            End If
            DateYMD(e.DataRow("养老保险日期"),d2,y,m,d)
            e.DataRow("养老已缴") = y*12+m
        End If
End Select
[此贴子已经被作者于2019/7/23 9:15:49编辑过]

 回到顶部