Foxtable(狐表)用户栏目专家坐堂 → 【求助大虾】如何判断两个条件符合后,自动计算出相对于的值


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

主题:【求助大虾】如何判断两个条件符合后,自动计算出相对于的值

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


加好友 发短信
等级:幼狐 帖子:117 积分:966 威望:0 精华:0 注册:2012/4/22 0:43:00
【求助大虾】如何判断两个条件符合后,自动计算出相对于的值  发帖心情 Post By:2012/11/30 16:32:00 [只看该作者]

我想做个加班统计表,加班人员的计费基数按不同的等级和不同的加班类型每小时的计费基数是不一样的,如何根据当前行的人员姓名和加班类型,自动计算出他相对于的加班每小时计费基数?详情见附件,请各位大虾帮帮忙

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:加班管理.rar


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/11/30 17:37:00 [只看该作者]

 大致这样。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:加班管理.table



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


加好友 发短信
等级:幼狐 帖子:117 积分:966 威望:0 精华:0 注册:2012/4/22 0:43:00
  发帖心情 Post By:2012/11/30 21:15:00 [只看该作者]

谢谢林老师的指导,但还是有些小问题,在加班通知单添加新的加班记录和加班人员选择类型是周末时,统计表只统计了周末加班小时,没有自动统计周末加班金额。单添加加班通知单类型是法定节假日的时候,没有自动统计法定节假日的小时和金额。

还有能不能设置我在添加加班通知单和加班人员的时候,一打开统计表的时候就能自己统计,不用又去调整列数据后才变动?

麻烦大虾多多指点


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


加好友 发短信
等级:幼狐 帖子:117 积分:966 威望:0 精华:0 注册:2012/4/22 0:43:00
  发帖心情 Post By:2012/11/30 21:16:00 [只看该作者]

补充上修改的数据

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


加好友 发短信
等级:幼狐 帖子:117 积分:966 威望:0 精华:0 注册:2012/4/22 0:43:00
  发帖心情 Post By:2012/11/30 21:17:00 [只看该作者]

补充上林老师帮修改后的数据
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:加班管理2.table


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/1 8:54:00 [只看该作者]

 好的,代码最后变成。

Select Case e.DataCol.Name
    Case "姓名"
        Dim dt_jiaban As DataTable = DataTables("加班人员表")
        Dim dt_jishu As DataTable = DataTables("加班计费基数")
        Dim dr_jiaban As DataRow = dt_jiaban.Find("加班人员 = '" & e.NewValue & "'" )
        If dr_jiaban IsNot Nothing Then
            Dim dr_jishu As DataRow = dt_jishu.Find("职务 = '" & dr_jiaban("职务") & "'")
            e.DataRow("工作日加班_小时") = dt_jiaban.Compute("Sum(加班时长)", "加班人员 = '" & e.NewValue & "' And 加班类型 = '工作日'") / 3600
            e.DataRow("工作日加班_金额") = e.DataRow("工作日加班_小时") * dr_jishu("工作日")
            e.DataRow("周末加班_小时") = dt_jiaban.Compute("Sum(加班时长)", "加班人员 = '" & e.NewValue & "' And 加班类型 = '周末'") / 3600
            e.DataRow("周末加班_金额") = e.DataRow("周末加班_小时") * dr_jishu("周末")
            e.DataRow("法定节假日加班_小时") = dt_jiaban.Compute("Sum(加班时长)", "加班人员 = '" & e.NewValue & "' And 加班类型 = '法定节假日'") / 3600
            e.DataRow("法定节假日加班_金额") = e.DataRow("法定节假日加班_小时") * dr_jishu("法定节假日")          
        End If
End Select

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


加好友 发短信
等级:幼狐 帖子:117 积分:966 威望:0 精华:0 注册:2012/4/22 0:43:00
  发帖心情 Post By:2012/12/1 23:42:00 [只看该作者]

问题解决了,非常感谢林老师的指导,谢谢

现在正在学习你的第四讲视频,感谢你的我们这样小白的无私奉献


 回到顶部