以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求项目中的变化数,谢谢。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126919)

--  作者:evolymft
--  发布时间:2018/10/30 19:53:00
--  求项目中的变化数,谢谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


代码在DATACOLCHANGED中,请高手求出表中的变化列数据,是(日期1-日期2的月份数)X (变化后的合计-变化前的合计),谢谢

--  作者:有点蓝
--  发布时间:2018/10/30 21:14:00
--  
Select Case e.DataCol.Name
    Case "日期1","日期2","合计"
        If e.DataRow.IsNull("日期1") = False AndAlso e.DataRow.IsNull("日期2") = False
            Dim y,m,d As Integer
            DateYMD(e.DataRow("日期1"),e.DataRow("日期2"),y,m,d)
            e.DataRow("变化") = (e.NewValue-e.OldValue) * m
        End If
End Select

--  作者:evolymft
--  发布时间:2018/10/30 21:24:00
--  
谢谢老师指点
--  作者:evolymft
--  发布时间:2018/10/30 22:21:00
--  
请老师指点文件中上边一段代码如何插入下边代码中,能让岗位或薪级发生变化时,自动计算出补发金额,谢谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt


--  作者:evolymft
--  发布时间:2018/10/30 22:22:00
--  
请你有空时帮忙指点,谢谢
--  作者:evolymft
--  发布时间:2018/10/30 22:32:00
--  
岗位等级变动时,岗位工资,提高工资,基础绩效要变化,应发工资、实发工资随之而变。
--  作者:evolymft
--  发布时间:2018/10/30 22:38:00
--  
薪级等级变动时,薪级工资,提高工资要变化,应发工资、实发工资随之而变。
--  作者:有点蓝
--  发布时间:2018/10/30 22:59:00
--  
Case "发薪年月","起薪年月","应发合计"

改为

    Case "应发合计"