Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求计算工资代码方法


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

主题：求计算工资代码方法
帅哥哟，离线，有人找我吗？
大红袍
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/5 16:22:00 [显示全部帖子]

请上传具体foxtable例子，说明计算逻辑。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/5 17:27:00 [显示全部帖子]

请上传foxtable项目。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/5 20:15:00 [显示全部帖子]

密码贴出来。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/5 21:42:00 [显示全部帖子]

 你还要把数据库上传上来。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/6 15:03:00 [显示全部帖子]

Select Case e.DataCol.name  '计算剩余产值到组长剩余提成
    Case "剩余产值","剩余提成"
        If e.DataRow.IsNull("剩余产值") = False AndAlso e.DataRow.IsNull("剩余提成") = False Then
 
 
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/6 18:03:00 [显示全部帖子]

Select Case e.DataCol.name  '计算剩余产值到组长剩余提成
    Case "剩余产值","剩余提成"

 

应该改成

 

Select Case e.DataCol.name  '计算剩余产值到组长剩余提成
    Case "部门", "日期"
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/6 18:29:00 [显示全部帖子]

 现在有什么问题？如果没解决。把你的数据库发上来测试。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/6 19:27:00 [显示全部帖子]

 那你现在的问题是什么？做什么操作以后，执行什么代码，最后达到什么效果？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/11 21:56:00 [显示全部帖子]

Select Case e.DataCol.name  '计算剩余产值到组长剩余提成
    Case "剩余产值","剩余提成"
        Dim cnt As Double '计算汇总每部门每人每日产值
        cnt = DataTables("员工工资表").Compute("Sum([剩余产值])", "[部门] = '" & e.DataRow("部门") & "'  and [日期] = '" & e.DataRow("日期") & "'")
        Dim cnt1 As Double '计算汇总剩余手工分配提成
        cnt1 = DataTables("员工工资表").Compute("Sum([剩余提成])", "[职位] <> '组长'  And [部门] = '" & e.DataRow("部门") & "' and [日期] = '" & e.DataRow("日期") & "'")
        Dim dr As DataRow '结算填写到组长剩余提成
        Dim Filter11 As String
        Filter11 = "[职位] = '组长'  And [部门] = '" & e.DataRow("部门") & "' and [日期] = '" & e.DataRow("日期") & "'"
        dr = DataTables("员工工资表").Find(Filter11 )
       
       
       
        If dr IsNot Nothing Then '如果找到
            dr("剩余提成")=cnt-cnt1
        Else '如果没找到就新建一行
           
            Dim Filter12 As String
            Filter12 = "[职位] = '组长'  And [部门] = '" & e.DataRow("部门") & "'"
            Dim drs As List(of DataRow) = DataTables("员工资料表").Select(Filter12 ) '到员工表找相应组长名字
            For Each dr1 As DataRow In drs
                dr = DataTables("员工工资表").AddNew()
                dr("姓名") = DR1("姓名")
                dr("日期") = e.DataRow("日期")
                dr("剩余提成")=(cnt-cnt1) / drs.count
            Next
        End If
End Select

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询