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

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

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

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

具体逻辑如下:

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

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

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

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

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

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

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

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

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

已编辑,请老师帮忙

请上传foxtable项目。

是整个文件夹还是订单生产.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 "剩余产值","剩余提成"

If e.DataRow.IsNull("剩余产值") = False AndAlso e.DataRow.IsNull("剩余提成") = False Then

End If

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