Foxtable(狐表)用户栏目专家坐堂 → 根据月份变化DataColChanged事件中将上月的【总应税工资】,变成本月的【已应税工资】


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

主题:根据月份变化DataColChanged事件中将上月的【总应税工资】,变成本月的【已应税工资】

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


加好友 发短信
等级:婴狐 帖子:38 积分:282 威望:0 精华:0 注册:2019/5/29 16:10:00
根据月份变化DataColChanged事件中将上月的【总应税工资】,变成本月的【已应税工资】  发帖心情 Post By:2021/4/9 9:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_16179330762275.png
图片点击可在新窗口打开查看
求助大佬,怎用根据月份变化,在DataColChanged事件中将上月的【总应税工资】,变成本月的【已应税工资】
图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_16179330321799.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:38 积分:282 威望:0 精华:0 注册:2019/5/29 16:10:00
  发帖心情 Post By:2021/4/9 9:54:00 [只看该作者]

我写的代码如上图,数据总是不对,求助大佬解答。

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


加好友 发短信
等级:狐精 帖子:3048 积分:20394 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/4/9 9:56:00 [只看该作者]

是不是有其他代码影响了总应税工资

 


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


加好友 发短信
等级:婴狐 帖子:38 积分:282 威望:0 精华:0 注册:2019/5/29 16:10:00
  发帖心情 Post By:2021/4/9 10:00:00 [只看该作者]

做了表达式     “IsNull([已应税工资],0)+[本期收入]-[减除合计]”  不知道是否影响?

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106050 积分:539343 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/9 10:07:00 [只看该作者]

根据什么条件判断哪一行数据属于上个月?

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


加好友 发短信
等级:婴狐 帖子:38 积分:282 威望:0 精华:0 注册:2019/5/29 16:10:00
  发帖心情 Post By:2021/4/9 10:08:00 [只看该作者]

根据月份变化,月份变化后,本期收入会更新,总应税金额会变化。

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106050 积分:539343 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/9 10:15:00 [只看该作者]

截图说明一下,哪个月份?

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


加好友 发短信
等级:婴狐 帖子:38 积分:282 威望:0 精华:0 注册:2019/5/29 16:10:00
  发帖心情 Post By:2021/4/9 10:23:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:企业微信截图_16179347945039.png
图片点击可在新窗口打开查看




表属性下的datacolchanged事件我的代码如下:
If e.DataCol.Name = "身份证号码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("本期收入") = Nothing
        e.DataRow("计薪年月") = Nothing
        e.DataRow("养老保险") = Nothing
        e.DataRow("医疗保险") = Nothing
        e.DataRow("失业保险") = Nothing
        e.DataRow("住房公积金") = Nothing

    Else
        Dim dr As DataRow
        dr = DataTables("工资总表").Find("[姓名ID] = '" & e.NewValue & "'")
        If dr IsNot Nothing 
            e.DataRow("本期收入") = dr("应发总额")
            e.DataRow("计薪年月") = dr("计薪年月")
            e.DataRow("养老保险") = dr("养老保险")
            e.DataRow("医疗保险") = dr("医疗保险") 
              e.DataRow("失业保险") = dr("失业保险")
            e.DataRow("住房公积金") = dr("住房公积金") 

        End If
    End If
End If


If e.DataCol.name = "计薪年月" Then

    If e.newvalue = Nothing Then

        e.DataRow("月份") = Nothing

    Else

        e.DataRow("月份") = e.newvalue.month

    End If

End If



If e.DataCol.name = "月份" Then

    If e.newvalue IsNot  Nothing   Then

        e.DataRow("已应税工资") =  e.DataRow("总应税工资") 

    End If

End If

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106050 积分:539343 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/9 10:28:00 [只看该作者]

意思是现在是3月,然后3月1日的"已应税工资"取2月的最后一天的总应税工资?

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


加好友 发短信
等级:婴狐 帖子:38 积分:282 威望:0 精华:0 注册:2019/5/29 16:10:00
  发帖心情 Post By:2021/4/9 10:28:00 [只看该作者]

是的

 回到顶部
总数 44 1 2 3 4 5 下一页