求计算工资代码方法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

刚接触,复杂点点的代码不会写了,上头急要.求帮助.

项目有个"员工工资表" 要求根据 "员工资料表"中的员工的(部门)和(职位) 自动按生产日报表的当日产值计算每位员工每日工资. 如第1张图

下载信息 [文件大小：下载次数： ]
点击浏览该文件:订单生产.foxdb

具体逻辑如下:

1.计算出每人每日累计产值;

2,当日提成=当日产值*当日比例;

3当日部门剩余产值总和默认全分给部门组长当剩余提成,可以手动分给操作员或技术员,相应组长剩余提成减少;

4当日工资=提成+剩余提成-扣餐-其它罚款+其它奖励

此主题相关图片如下：1.png

此主题相关图片如下：2.png

此主题相关图片如下：3.png

[此贴子已经被作者于2016/4/5 18:19:33编辑过]

已编辑,请老师帮忙

是整个文件夹还是订单生产.foxdb

请帮看下代码,如何避免计算2次

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 dr1 As DataRow '

Dim Filter12 As String

Filter12 = "[职位] = '组长' And [部门] = '" & e.DataRow("部门") & "'"

dr1 = DataTables("员工资料表").Find(Filter12 ) '到员工表找相应组长名字

If dr1 IsNot Nothing Then '如果找到

dr = DataTables("员工工资表").AddNew()

dr("姓名") = DR1("姓名")

dr("日期") = e.DataRow("日期")

dr("剩余提成")=cnt-cnt1

End If

End Select

但这样生成新的一行时就不会自动计算了.

看来还是增加一列好了,或就算两次好

一开始逻辑不对,本意是组长从自己的"剩余提成"分给手下,补偿手下工资,避免日工资过低

敏感数据不方便全部上传.

最后效果达到了,谢谢

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 dr1 As DataRow '

Dim Filter12 As String

Filter12 = "[职位] = '组长' And [部门] = '" & e.DataRow("部门") & "'"

dr1 = DataTables("员工资料表").Find(Filter12 ) '到员工表找相应组长名字

If dr1 IsNot Nothing Then '如果找到

dr = DataTables("员工工资表").AddNew()

dr("姓名") = DR1("姓名")

dr("日期") = e.DataRow("日期")

dr("剩余提成")=cnt-cnt1

End If

End Select

原来每个部门组长只有1位时没问题,现车床部有两位组长,要平分相应部门的剩余产值.代码怎么改

主题：求计算工资代码方法