根据数据表每个员工的每个月所在的部门和系数以及系数奖金表的部门系数奖金,在奖金明细表中填充每个员工每个月的奖金金额;
月奖金 = 所在部门的系数奖金 * 月系数
对从一张表条件提取数据进行计算的代码如下:
'填充系数
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
但是要从两张表条件提取数据进行计算填充的代码不知如何写,请各位老师指教,谢谢!!
[此贴子已经被作者于2012-8-29 9:28:37编辑过]