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

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

 

应该改成

 

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

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

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

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

最后效果达到了,谢谢

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