主题：[求助]多表条件取值计算（已解决）

根据数据表每个员工的每个月所在的部门和系数以及系数奖金表的部门系数奖金，在奖金明细表中填充每个员工每个月的奖金金额；

月奖金 = 所在部门的系数奖金 * 月系数

 

对从一张表条件提取数据进行计算的代码如下：

 

'填充系数
For Each dr1 As DataRow In DataTables("数据").DataRows
    Dim pr As DataRow
    For i As Integer = 1 To 12
        If dr1.IsNull("职务_" & i)  Then
            dr1("系数_" & i) = Nothing
        Else
            pr = DataTables("设置").Find("职务 = '"& dr1("职务_" & i) & "'")
            If pr IsNot Nothing Then
                dr1("系数_" & i) = pr("系数") * dr1("考勤_" & i)
            Else
                dr1("系数_" & i) = Nothing
            End If
        End If
    Next
Next

 

但是要从两张表条件提取数据进行计算填充的代码不知如何写，请各位老师指教，谢谢！！

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目177.table

谢谢czy老师的指教，计算的结果完全正确，但是因为以上案例进行了简化，实际的表还有很多列，希望将列dr("奖金_" & dc.Name.Split("_")(1))的表示形式改成dr("奖金_"& i)的For...Next循环语句，如何修改，请各位老师指教，再次感谢czy老师！！

谢谢czy老师的回复，对dc.Name.Split("_")(1)如何理解，请老师指教，谢谢！！

谢谢狐爸老师的回复，看了帮助文件关于Split的条文，对dc.Name.Split("_")(1)还是一知半解，个人觉得还是For...Next循环语句的条理比较清晰，能否将czy老师的代码改成For...Next循环语句的形式，还请各位老师赐教。

重新上传案例,个人奖金表的奖金系数填充代码如下。

 

'填充奖金系数
For Each dr1 As DataRow In DataTables("个人奖金").DataRows
    Dim pr As DataRow
    For i As Integer = 1 To 12
        If dr1.IsNull("姓名")  Then
            dr1("奖金明细_" & i &"_奖金系数") = Nothing
        Else
            pr = DataTables("个人数据").Find("姓名 = '"& dr1("姓名")& "'")
            If pr IsNot Nothing Then
                dr1("奖金明细_" & i &"_奖金系数") = pr("系数_" & i)
                If dr1("奖金明细_" & i &"_奖金系数") = 0 Then
                    dr1("奖金明细_" & i &"_奖金系数") = Nothing
                End If
            Else
                dr1("奖金明细_" & i &"_奖金系数") = Nothing
            End If
        End If
    Next
Next

 

求计算考核奖的代码，请各位老师指教，谢谢！！

计算方法：个人奖金表的“奖金明细_i_考核奖” = 个人数据表对应姓名的“部门_i”所对应系数奖金表部门的系数考核奖的值 * 个人奖金表的“奖金明细_i_奖金系数”

 

 

案例重新上传，在12楼。

不好意思，重新上传。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:案例.rar

谢谢狐爸老师的回复，具体的算法：

如张4,1-3月份在部门2，职务是4，所以他的1-3月份的考核奖分别 = 180 * 1.8 = 324
        4-12月份在部门3，职务是3，所以他的4-12月份的考核奖分别 = 160 * 1.5 = 240

谢谢狐爸老师的回复，系数是根据岗位来确定，180是单位的系数考核奖，在系数奖金表中读取。

谢谢狐爸老师的指教，代码执行后，其他行的数据完全正确，但是张4的数据好像还有问题：

1-3月份考核奖应该是：180*1.8=324，计算结果却是270；

而4-12月份考核奖应该是：160 * 1.5 = 240，而计算结果却是288；

不知问题出在哪里？还请狐爸老师帮助看看，万分感谢！！

分析后，是 xh 的结果出错，改成直接用 pr("系数_" & i) 来替换 xh ，问题解决。修改后的代码如下：

'填充计算

For Each dr1 As DataRow In DataTables("个人奖金").DataRows
    Dim pr As DataRow
    For i As Integer = 1 To 12
        If dr1.IsNull("姓名")  Then
            dr1("奖金明细_" & i &"_奖金系数") = Nothing
        Else
            pr = DataTables("个人数据").Find("姓名 = '"& dr1("姓名")& "'")
            If pr IsNot Nothing Then
                dr1("奖金明细_" & i &"_奖金系数") = pr("系数_" & i)
                If dr1("奖金明细_" & i &"_奖金系数") = 0 Then
                    dr1("奖金明细_" & i &"_奖金系数") = Nothing
                End If
                Dim dr2 As DataRow = DataTables("系数奖金").Find("部门 = '" & pr("部门_" & i) & "'")
                If dr2 IsNot Nothing Then
                    dr1("奖金明细_" & i & "_考核奖") = dr2("系数考核奖") * pr("系数_" & i)
                    dr1("奖金明细_" & i & "_节约奖") = dr2("系数节约奖") * pr("系数_" & i)
                End If
            Else
                dr1("奖金明细_" & i & "_奖金系数") = Nothing
            End If
        End If
    Next
Next

 

对czy老师和狐爸老师的热情指教再次表示衷心感谢！！